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This  chapter  gives  a  brief  summary  on  the  background  of  data 
commu..  xcat ion  protocols  in  the  Defense  Data  Network  (DDN) 
environment  and  the  International  Organization  for 
Standardization  (ISO)  community.  It  also  describes  the 
motivations  which  stimulated  this  study  task.  The  objectives  of 
the  study  task  and  the  structure  of  the  report  are  also  described 
in  this  chapter. 


1 . 1  BACKGROUND 


In  December  of  1978,  the  internetwork  protocol  suite,  The 
Internet  Protocol  (IP)  and  the  Transmission  Control  Protocol 
(TCP),  was  recognized  and  adopted  by  the  Department  of  Defense 
(DoD).  Since  then,  it  has  been  'veil  developed  in  Defense  Data 
Network  (DDN)  environment  and  many  other  academic  data  networks. 
The  protocol  set  is  well  recognized  by  DDN  community  as  it 
satisfactorily  meets  the  U.S.  military  requirements  with  respect 
to  security,  survivability,  and  reliability.  It  is  also  well 
recognized  by  the  rest  of  the  data  communication  community  as  it 
successfully  provides  network  and  transport  services  to  end- 
users,  and  the  vision  of  the  original  architects  in  the  mid-70s 
is  remarkably  well-matched  to  today's  data  communication  need. 


On  the  other  hand,  the  International  Organization  for 
Standardizat ion  (ISO),  especially  the  Technical  Committee  97  in 
ISO,  along  with  some  other  standards  organizations  such  as  the 
International  Telephone  and  Telegraph  Consultative  Committee 
(CCITT),  have  been  developing  high-quality  standards  for 
networking  services,  protocols,  and  interfaces  for  Open  System 
Interconnection  (OSI)  in  years.  It  is  felt  even  more  urgent  in 
the  past  few  years,  with  the  rapid  evolution  of  communication 
technologies  and  the  system  architectures,  to  the  construction  of 
distributed  application  environment  with  more  advanced  data 
communication  standards,  by  a  very  large  community  of  computer 
system  builders.  Some  resulting  standards  have  already  been 
recognized  as  international  standards.  The  ISO  IS  8473  as  a 
Network  Layer  protocol  and  ISO  IS  8072/8073  as  a  Transport  Layer 
protocol  are  two  examples.  In  the  United  States,  these  protocols 
and  some  other  layer's  protocols  have  been  adopted  with  minor 
modifications  by  the  National  Bureau  of  Standards  (NBS)  for  some 
governmental  organizations,  and  implemented  by  several  vendors  on 
a  few  systems.  The  ISO  protocols  are  more  favorable  in  the 
European  countries,  such  as  in  the  NATO  member  countries. 


Under  these  circumstances,  the  critical  problem  of 
interoperability  has  arisen  in  interconnecting  those  independent 
DoD  communities  with  other  federal,  intelligent,  security,  and 
commercial  agencies  in  U.S.,  with  other  international 
organizations,  and  with  the  rest  of  NATO.  This  research  is 
addressed  to  study  the  interoperability  issues  between  the  DDN 
protocols  (TCP/IP)  and  the  OSI  protocols  (TP-4). 


1 . 2  MOTIVATIONS 


In  1985,  under  the  request  by  the  DoD  and  NBS,  the  Committee  on 
Computer-Computer  Communication  Protocol  in  the  National  Research 
Council  did  a  transport  protocol  study  of  the  DoD  TCP/IP  and  the 
ISO  Transport  Protocol  Class  4  (TP-4)  [ NRC  85].  The  result 

shows  that  both  protocols  are  functionally  equivalent,  both 
provide  essentially  similar  services,  and  both  are  sufficiently 
equivalent  in  security-related  properties.  This  study  recommended 
with  three  alternative  approaches  for  the  DoD  to  solve  the 
interoperability  problem: 

1)  Immediately  specify  the  TP-4  as  a  costandard  --  for  newly 
added  systems  to  reduce  the  transition  cost  later. 

2)  Announce  the  intention  to  have  TP-4  as  a  costandard  —  to 

wait  for  the  satisfactory  demonstration  of  the  protocol  and 

implementation  suitability;  and  to  wait  to  use  commercial 
products  with  low  developing  cost. 

3)  Continue  to  use  the  TCP,  delay  the  adoption  of  the  TP-4 

to  avoid  faulty  system  behavior  and  unnecessary  delay. 


When  more  than  one  protocol  is  concerned  in  the  data 
communication  community,  there  must  be  the  compatibility  problem 
to  be  faced  before  and  after  the  new  protocol  is  adopted,  until 
all  the  protocols  are  truly  unified  with  unique  standard  protocol 
set.  This  is  one  of  the  reasons  which  stimulated  this  study. 


Meanwhile,  it  is  NATO's  intention  to  introduce  ISO  protocols  as 
far  as  possible  in  all  NATO's  new  systems,  some  valuable  research 
efforts  were  performed  in  the  SHAPE  Technical  Center,  as  a  joint 
effort  with  U.S.  DoD,  in  the  area  of  conversion  between  TCP  and 
ISO  transport  protocols  [GROEN  86].  The  direct  conversion 
method  was  studied  as  a  method  of  achieving  interoperability 
between  the  NATO  and  DDN  data  communications  systems.  However, 
the  approach  imposes  quite  a  few  restrictions  on  the  transport 
service  users  to  resolve  the  mismatches.  So  the  second  reason 
for  this  study  is  to  find  some  alternative  approaches  to  relax 
the  restrictions  on  the  transport  service  users. 
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Started  in  1986,  the  Network  Working  Group  in  ARPANET  proposed  in 
RFC  1006  to  implement  ISO  Transport  Protocol  Class  0  (TP-0) 
services  on  top  of  the  TCP.  The  basic  idea  is  that  the  TCP/IP 
protocols  provide  the  error- free  virtual  circuit  connections 
between  transport  service  users  so  that  only  TP-0  of  the  ISO 
transport  service  is  needed  to  interconnect  DDN  with  the  ISO 
protocol  world.  This  approach  could  help  the  transition  from  the 
TCP/IP  protocol  suite  to  the  ISO  protocol  suite.  But  there  are 
some  other  issues  which  need  to  be  further  discussed.  This  is 
the  third  reason  for  the  study  task. 


The  pace  of  implementing  ISO  TP-4  is  relatively  slow,  while  the 
interests  in  TCP/IP  increased  dramatically  recently.  IBM  and 
some  research  institutes  in  European  countries  jumped  to  TCP/IP 
in  last  six  months.  A  study  result  released  in  December,  1987 
shown  that  56  percent  of  those  surveyed  are  still  willing  to  stay 
on  TCP/IP  with  no  plan  to  migrate  to  ISO.  The  implication  of 
this  survey  means  that  it  is  going  to  be  possible  to  have  TCP/IP 
networks  that  have  ISO  protocols  running  simultaneously  with 
TCP/IP  protocols. 


The  ISO  protocols  have  long  been  recognized  as  the  trend  of  the 
protocol  development.  While  the  TCP/IP  protocols  have  already 
occupied  a  large  market,  it  will  be  inevitably  required  to  have 
the  well -developed  protocol  conversions  between  the  DDN  TCP/IP 
and  the  ISO  TP.  This  is  another  reason  that  the  protocol 
conversion  could  be  quite  important  in  the  near  future. 


1 . 3  OBJECTIVES 

This  study  :s  focused  on  the  following  problems: 

1)  The  general  issues  involved  in  the  protocol  conversion; 

2)  The  protocol  conversion  in  the  DDN  to  ISO  environment; 

3)  More  detailed  understanding  of  both  protocol  suites; 

4)  Approaches  to  achieve  the  interoperability  between  TCP/IP 
and  TP-4; 

5)  Proposal  to  the  future  studies  in  the  area. 

1.4  STRUCTURE  OF  REPORT 

The  report  is  divided  into  four  major  sections.  Part  I  contains 
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discussions  about  the  interoperable  protocols  environment  in  DDN 
in  the  future.  Part  II  and  III  are  devoted  to  the  DDN  and  ISO 
protocol  suites.  Part  IV  is  for  the  protocol  conversion  between 
the  TCP/IP  and  the  TP-4. 
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PART  INTEROPERABLE  PROTOCOLS  IN  DDN  ENVIRONMENT 


In  this  section,  the  major  issues  in  the  protocol  conversion  are 
presented.  The  protocol  interoperability  requirements  in  the  DDN 
environment  are  discussed.  The  protocol  conversion  tasks  are 
defined  to  meet  the  requirements. 


2.  MAJOR  ISSUES  IN  THE  PROTOCOL  CONVERSION 


During  1987  there  was  a  lot  of  controversy  in  the  development 
gatewaying  strategies.  Since  it  is  inevitable  to  have 
heterogeneous  networks  coexisting  in  the  data  communication 
community,  the  protocol  conversions  will  be  a  permanent  fact  of 
life.  For  example,  tcday  we  are  concerned  about  the  gatewaying 
between  DDN  TCP/IP  community  and  the  ISO/OSI  protocol  communities 
in  the  same  digital  data  communication  world.  Soon  we  will  find 
ourselves  concerned  with  the  gatewaying  between  the  global 
telephone  network  with  integrated  services  (ISDN)  artd  the  global 
Wide  Area  Network  with  digital  data  communication  (GWAN).  Some 
experts  are  arguing  that  the  ISO/OSI  protocol  architecture  should 
be  considered  as  a  worldwide  standard  architecture  toward  which 
all  existing  architectures  should  converge  in  the  long  term. 
Other  experts  argue  that  only  an  intermediate  protocol  for  the 
protocol  conversions  in  the  near  term  should  be  considered. 


The  significance  of  the  gateway  design  for  protocol  conversion  is 
based  on  the  principle  that  ALL  the  protocol  layers  above  the 
gatewaying  layer  must  be  compatible.  This  rule  should  be 
strictly  reserved  in  the  gateway  design.  The  gateways 
implemented  at  the  network  layer  (DDN  IP  and  ISO  IP)  are  of 
limited  general  use  in  the  long  term.  Some  of  the  arguments 
indicate  that  gatewaying  should  occur  at  or  above  the  transport 
layer.  And  some  arguments  also  suggest  that  the  best  approach  is 
to  perform  gatewaying  exactly  at  the  transport  layer  to  minimize 
the  gatewaying  effort. 


Gateways  can  be  implemented  at  the  transport  protocol  peer  or  at j 
the  transport  service  access  point.  When  this  approach  is  used, 
how  should  the  end-to-end  reliable  service  property  at  the: 
transport  layer  be  maintained?  How  should  its  significance  be 
evaluated  in  the  military  environment  where  the  survivability  is 
critical  important?  When  the  service  primitive  is  not  provided 
by  one  of  the  converted  protocols,  should  it  become  the 
restriction  imposed  on  the  service  users?  Should  it  be  resolved 
by  the  protocol  conversion  mechanism  in  the  gateway  as  much  as 
possible?  Should  more  intelligence  in  the  conversion  be 
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considered  to  handle  the  mismatches?  Should  direct  packet-to- 
packet  conversions  be  preferred  for  higher  throughput  with  more 
restrictions  on  the  user  side?  The  last  question  is  how  the  low 
throughput  and  performance  should  be  improved  for  heavy  duty 
gateways?  These  are  questions  which  must  be  addressed  in  this 
research . 


3.  ERQTQCQL  INTEROPERABILITY  REQUIREMENTS  M  DON 


It  is  a  well-recognized  trend  in  the  data  communication  protocol 
development  to  converge  to  the  ISO  standardized  protocols.  As 
suggested  by  the  report  from  the  transport  protocol  study  group 
in  the  National  Research  Council,  the  DDN  community  should  be 
ready  to  have  the  protocol  convergence  in  certain  future  time 
period  ( NRC  85].  On  the  other  hand,  the  delayed  availability 
of  the  ISO  TP-4  implementations  is  causing  more  user  groups 
jumping  over  to  the  TCP/IP  internetworking  protocols.  The  effect 
of  the  current  situation  will  definitely  put  more  importance  onto 
the  protocol  conversion  task  when  the  conversion  is  actually 
needed . 


3.1  Interconnecting  DDN  and  ISO  Networks 


This  is  the  basic  problem  of  interconnection  between  two  network 
systems,  such  as  the  TCP/IP-based  DDN  in  the  U.S.  and  the  ISO 
based  network  in  the  rest  of  NATO.  Figure  3.1  shows  this 
internetworking  scenario.  Only  one  set  of  protocol  suite  is 
implemented  in  each  network  in  this  case.  The  gateway  is 
required  to  interconnect  the  two  networks . 


This  kind  of  interoperability  is  always  required  before  any 
protocol  transition  or  convergence  plan  is  made. 


3.2  Interconnecting  TCP  and  ISO  Users  in  the  Same  Network 


This  is  the  problem  that  both  the  TCP/IP  and  the  ISO  protocols 
coexist  in  the  same  network  as  costandards.  The  network  here 
could  be  a  set  of  interconnected  subnetworks.  Two  protocol 
suites  can  coexist  in  any  subnetworks.  The  users  using  different 
protocol  suites  are  communicated  through  the  intermediate 
gateways,  as  shown  in  Figure  3.2.  The  DDN  Internet  is  an  example 
of  the  case. 
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Figure  3.1  Interconnecting  the  TCP-based  Network 

with  the  ISO-based  Network 


Figure  3.2  Interconnecting  TCP/ISO  Users  In  the  Same  Network 


Figure  3.3  Interconnecting  TP-O/TCP  users  with  the  Rest 


3 . 3  Interconnecting  TP-0  Users  with  the  Rest 


This  is  the  case  where  ISO  TP-0  services  are  implemented  on  some 
nodes  above  the  TCP/IP  protocols,  as  proposed  in  [ROSE  87].  As 
higher  level  services  and  protocols  above  the  transport  layer  are 
usually  implemented  as  user-callable  utilities  on  the  host 
computers,  it  is  desirable  to  offer  them  directly  in  the  DDN 
Internet  now  without  disrupting  existing  facilities.  This  will 
permit  DDN  users  to  develop  expertise  with  ISO  applications  while 
there  is  still  a  lot  of  work  being  done  to  get  good 
implementations  of  ISO  transport /network  layers.  It  will  also 
permit  more  graceful  convergence  and  transition  strategy  from 
TCP/IP  networks  to  the  ISO-based  networks  in  the  medium  and  long 
term.  The  interconnection  model  is  shown  in  Figure  3.3.  This 
migration  strategy  is  based  on  the  notion  of  gatewaying  between 
the  TCP/IP  and  ISO  protocol  suites  at  the  transport  layer. 


4.  PROTOCOL  CONVERSION  TASKS 


The  problem  of  protocol  conversion  will  be  discussed  from  three 
aspects:  general  gateway  functions,  gateway  functions  required 
in  the  DDN  environment,  and  gateway  functions  attended  in  this 
study  task. 


4.1  GENERAL  GATEWAY  FUNCTIONS 


Internet  gateways,  regardless  of  their  application 
environment,  must  perform  a  variety  of  functions  in  order  to  make 
data  communications  between  different  networks  compatible  [MART 
87b] .  The  functions  of  generalized  internet  gateways  are 
discussed  here: 

1.  Medium  Transformation  -  A  gateway  must  translate  messages 
between  different  transmission  media, such  as  LAN  RF 
broadband  or  baseband  digital  signals,  and  the  serial  1822 
or  X.25  interfaces  of  the  DDN  packet  switching  nodes. 
Signaling  schemes  to  each  network  must  be  present  in  the 
gateway. 

2.  Media  Access  Translation  -  The  media  access  schemes  on  the 
LAN  side  of  the  gateway  must  be  present  in  the  gateway. 
Media  access  schemes  on  LANs,  such  as  CSMA/CD  or  token 
passing  802.4,  must  be  present  in  the  gateway.  Access 
schemes  to  the  DDN  must  also  be  present. 

3.  Address  Translation  -  Network  addressing  schemes  are 
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different  on  each  network,  so  that  the  gateway  must  perform 
address  translation.  For  example,  the  IEEE  802.3  LAN  uses  a 
48  bit  flat  addressing  scheme  and  the  DDN  uses  a  32  bit  two- 
level  addressing  scheme.  The  gateway  must  recognize  internet 
addressing  schemes  when  interconnecting  multiple  networks. 

4.  Protocol  Transformation  -  The  network  protocols  of  each 
network  must  be  transformed  through  decapsulation  and 
encapsulation  steps  in  L  part  of  the  gateway.  For  the  DDN, 
the  Internet  Protocol  (IP)  and  the  Transmission  Control 
Protocol  (TCP)  must  encapsulate  to  a  LAN  message.  The  LAN 
protocol  headers  must  be  stripped  before  hand-off  to  the 
TCP/IP  protocols.  In  the  case  of  internet  environment,  a 
gateway- to-gateway  protocol  must  be  implemented. 

5.  Message  Buffering  and  Flow  Control  -  The  gateway  must  be 
able  to  buffer  messages  from  each  network  and  flow  control 
the  network  interfaces  when  the  buffers  are  full.  The  flow 
control  mechanisms  buffer  sizes-  are  critical  to  the 
performance  of  the  gateway. 

6.  Reliable  Connection  Management  -  The  gateway  must  provide  an 
error  free  link  between  two  end-users  on  the  networks  by 
adhering  to  the  error  control  and  re-transmission  mechanisms 
in  the  network  protocols.  The  status  of  the  connection  must 
be  made  available  to  the  user  when  error  conditions  arise. 

7.  Fault  Detection  and  Reporting  -  The  gateway  must  be  able  to 
detect  connection  status  when  establishing  and  maintaining  a 
connection  between  two  end-users.  The  gateway  then  reports 
to  the  users  the  condition  of  the  links,  gateways,  and 
networks  in  the  connection  path,  if  a  problem  should  occur. 

8.  Performance  Monitoring  and  Statistics  -  The  gateway  must  be 
able  to  monitor  its  performance  relative  to  packet 
throughput  and  network  routing  statistics .  These  parameters 
can  be  read  locally  or  remotely  from  the  gateway  and  used 
for  internet  management. 

9.  Security  Control  Mechanisms  -  The  gateway  must  adhere  to 
internet  security  control  and  management  procedures.  This 
might  include  generation  and  routing  of  encryption  keys  and 
cryptograhic  algorithms. 

10.  Real-Time  Response  -  The  gateways  must  process  packet 
traffic  from  the  networks  in  real-time  so  that  user  response 
times  are  not  compromised.  The  gateway  must  accommodate  the 
differences  in  network  response  times.  Real-time  response  is 
also  important  during  interactive  user  sessions.  The  gateway 
must  sustain  the  communication  rates  of  each  network. 

11.  Parallel  Processing  Architecture  -  The  gateway  must  contain 
parallel  processing  architecture  to  sustain  the  network 
transmission  speeds.  Dedicated  protocols  and  communication 
modules  must  exist  to  achieve  the  performance  throughput 
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required  by  connection  to  multiple  networks. 

12.  ISDN  Interfaces  -  Gateways  must  eventually  interface  to 
integrated  services  digital  networks  (ISDNs)  for  data, 
voice,  and  video  communications.  The  gateway  must 
interconnect  to  ISDNs  and  their  predecessors. 

13.  Multiple  Network  Interconnection  -  Gateways  in  distributed 
C3  systems  must  have  the  interfaces  and  link  parts  to  access 
multiple  communications  systems  and  networks. 

14.  Multi-Level  Security  and  Key  Distribution  -  Communications 
between  end-users  in  the  distributed  C3  system  will  require 
multi-level  security  for  sensitive  information  and  the 
gateway  must  preserve  the  data  security  characteristics  of 
several  networks . 

15.  Dynamic  Network  Topology  Reconfiguration  -  Since  the 
gateways  are  interconnected  to  multiple  networks  it  is 
feasible  to  use  the  gateway  to  keep  network  status  and  give 
this  information  to  the  network  management  function  for 
reconfiguration  when  nodes  and  networks  fail  or  are 
destroyed. 

16.  Network  Reachability  -  The  gateway  must  determine  the 
reachability  and  availability  of  neighboring  networks. 
Network  status  must  be  exchanged  between  gateways  so  that 
alternate  network  hops  be  taken  when  a  path  is  down. 

17 .  Internet  Management  and  Control  -  The  gateway  interacts  with 
an  Internet  Management  and  Control  Center  to  assist  in  the 
daily  operation  and  reliability  of  the  networks.  The  gateway 
performance  monitoring  function  collect  performance  data  and 
presents  it  to  the  Control  Center. 


4.2  GATEWAY  FUNCTIONS  BETWEEN  DON  AND  ISO/OSI 


4.2.1  Differences  between  Network  and  Transport  Layer  Gateways 


Figure  4.1  and  4.2  show  the  major  difference  between  the  network 
layer  gateways  (IP  gateway)  developed  in  the  previous  research 
work  and  the  transport/network  layer  gateways  in  the  current 
researches  [MART  87a].  In  the  IP  gateway  case,  it  is 
concentrated  on  the  connectability  up  to  the  network  layer.  The 
medium  transformation,  the  media  access  translation,  and  the 
subnetwork  protocol  translation  are  performed  in  the  IP  gateway, 
while  the  same  Internet  Protocol  and  the  same  upper  layer 
protocols  are  used.  Gateways  at  the  Network  Layer  are  called 
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Host  I  Host  2 


SubNetwork  1  SubNetwork  2 


Figure  4.2  The  Model  of  Transport/Above  Gateway  in  Concern 
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Routers  [MART  87b]. 


In  the  second  case,  more  complicated  functions  are  performed  in 
gateway  than  those  in  the  router  case.  As  a  result,  it  increases 
the  complexity  of  the  gateway  design.  While  the  gatewaying  at 
the  higher  layers  (Session,  Presentation,  and  Application  layers) 
are  optional,  depending  on  the  case  concerned.  These  situation 
will  be  described  in  the  following  sections. 


4. a. 2  Three  Cases  of  Transport  Layer  Gateways  in  DDN 


The  cases  discussed  in  following  section  can  be  applied  to  both 
situations  explained  in  Section  3.1  and  3.2:  interconnecting  DDN 
and  the  ISO  based  networks,  and  interconnecting  TCP/IP  users  and 
ISO  protocol  users  within  the  same  network.  This  is  based  on  the 
fact  that  the  differences  at  the  lower  layers  up  to  the 
network  layer  are  not  important  issues  here. 


Case  one  implements  not  only  the  Transport/Network  layers,  but 
also  other  upper  layers,  as  shown  in  Figure  4.3.  The  gateway 
itself  actually  becomes  a  node  in  both  networks,  performing 
store-and- forward  functions  between  application  layer  protocols. 
This  kind  of  gateway  will  be  able  to  connect  the  TCP/IP  based  DDN 
world  with  the  ISO  protocol  based  networks  without  changing 
anything  in  the  DDN. 


The  advantages  of  this  approach  are: 

1)  the  least  effort  is  needed  by  the  user  nodes  in  the  DDN 
side; 

2)  the  gateway  implementation  could  be  simple  using  a  host 
computer  to  be  connected  to  both  networks,  running  both  sets 
of  protocol  separately  in  multi-tasking  environment, 
performing  message  translation  at  the  user  level;  or 
performing  the  application  protocol  conversion  at  the 
application  layer  [MART  87a, b]. 


The  disadvantages  of  this  approach  are: 

1)  lower  throughput  in  the  gateway, 

2)  longer  node  delays, 

3)  low  performance  when  used  for  the  interactive  message 
transferring , 

4)  that  the  gateway  becomes  the  single  point  of  failure  in  the 
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DON  environment  where  the  survivability  is  critical. 


Case  two  implements  the  protocol  conversion  at  the  network  and 
the  transport  layers,  as  shown  in  Figure  4.4.  This  approach 
requires  the  ISO  upper  layer  protocols  being  implemented  on  those 
DDN  nodes  whose  users  want  to  communicate  with  the  users  in  the 
ISO  based  networks . 


The  advantages  of  the  approach  are: 

1)  If  the  protocol  conversion  is  implemented  at  the  protocol 
peer  entity  at  the  transport  layer,  the  end-to-end  property 
of  the  connection  between  the  end  users  can  be  sustained. 
This  is  very  important  in  the  DDN  environment  for 
survivability; 

2)  This  is  more  reasonable  approach  for  protocol  convergence  in 
the  future. 

The  disadvantages  of  this  approach  are: 

1)  The  implementation  of  the  gateway  is  more  complicated  due  to 
the  complexity  of  the  protocol  at  the  transport  layer; 

2)  Only  those  users  with  ISO  upper  layer  protocols  implemented 
in  the  node  can  communicate  with  other  nodes. 

•  Figure  4.5  shows  the  model  of  Case  Three.  The  TP-0  protocol  at 
the  top  of  the  TCP  is  considered  in  this  approach,  but  it  is  not 
necessary  the  only  choice.  Actually,  it  is  considered  as  a 
.  general  study.  The  different  classes  of  ISO  Transport  services 
are  not  compatible  by  the  nature.  Gatewaying  is  needed  to  get 
the  users  with  different  classes  of  transport  services 
communicated  and  could  be  quite  easily  extended 

to  the  actual  situation  in  real  need.  One  example  could  be  the 
connections  to  long  haul  networks  implementing  LAN  protocols.  As 
discussed  in  some  papers,  this  approach  is  considered  to  reduce 
the  overhead  of  overly  complicated  protocols. 


4.2.3  Proposed  Transport  Gateway  with  Multiple  Functions 


Putting  the  three  models  from  previous  discussion  together,  a 
multiple-function  gateway  is  discussed  in  this  section.  The 
multiple  function  transport  gateway  structure  is  shown  in  Figure 
4.6. 
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Figure  4.5  Transport  Layer  Gateway  with  TP-0  on  Top  of  TCP 

(Case  Three) 


Figure  4.6  Multiple-function  Transport  Gateway 
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Following  notations  are  used  in  the  Figure  4.6: 


IP:  DDN  Internet  Protocol 

TCP:  DDN  Transmission  Control  Protocol 

SMP , FTP , TELNET :  DDN  Application  Layer  Protocol 


ISO  IP: 
TP-4  : 
SL: 

PL: 

AL: 


Equivalent  Internet  Protocol  in  ISO  (CLNS,  8473) 
ISO  Transport  Layer  Protocol,  Service  Class  4 
ISO  Session  Layer  Protocols 
ISO  Presentation  Layer  Protocols 
ISO  Application  Layer  Protocols 


AL-Gateway:  DDN-ISO  Gateway  at/above  Application  Layer 


TL-Gateway ' : 
TL-G  TCP  : 
TCP  '  : 

TL-G  TP-4  : 
TP-4  '  : 

TL-G  TP-0  : 
TP-0  '  : 


Transport 

Transport 

Transport 

Transport 

Transport 

Transport 

Transport 


Gateway,  link  submodule 
Gateway,  interface  submodule 
Gateway,  TCP  submodule 
Gateway,  interface  submodule 
Gateway,  TP-4  submodule 
Gateway,  interface  submodule 
Gateway,  TP-0  submodule 


to  TCP 
to  TP-4 
to  TP-0 


The  AL-Gateway  module  in  the  figure  performs  the  gatewaying 
at/above  the  application  layer,  in  order  to  interconnect  the 
upper  layer  protocols  between  DDN  and  ISO  world.  The  protocol 
conversion  in  this  model  is  discussed  as  Case  Three  in  the 
previous  section. 


The  Transport  gateway  module  is  made  of  several  submodules.  To 
interconnect  different  transport  layer  protocols,  a  general  link 
submodule  is  used  to  perform  gatewaying  tasks  independent  of 
particular  transport  protocols.  The  protocol-dependent  tasks, 
such  as  checksum  production,  reproduction,  and  error  detection, 
are  performed  in  the  protocol-specific  submodules.  The  gaps 
between  the  protocol-specific 

submodules  and  the  general  link  submodule  is  matched  up  by  the 
interfacing  submodules.  The  mismatches  between  the 
interconnected  protocols  will  be  notified  to  both  sides.  Some  of 
the  conflicts  are  handled  in  each  interfacing  submodules,  and 
some  others  are  handled  in  the  general  link  submodule.  Some 
decision-makings  are  required  in  the  link  submodule.  Another 
phase  of  research  determined  the  functions  which  are  candidates 
for  protocol  negotiation  in  the  gateways. 


4.3  GATEWAYING  CONCERNED  IN  THIS  STUDY 

This  study  examines  the  issues  and  design  approaches  related  to 
transport  layer  gateways.  The  gateway  functions  are  performed  by 


16 


the  TL-G  submodules  in  Figure  4.6  (surrounded  by  the  dash  lines). 
The  protocol  conversion  tasks  and  the  conversion  algorithms  will 
be  specified  in  the  last  part  of  the  report. 


5.  FUNCTIONAL  ELEMENTS  CONCERNED  IN  THE  TRANSPORT  GATEWAYS 


This  chapter  presents  some  explanations  and  definitions  to  those 
terminologies  related  to  the  functional  elements  in  transport  and 
network  layers,  based  on  the  OS  I  model.  Special  issues  are  also 
discussed  for  those  functional  elements  which  requires  special 
processing  in  the  transport  gateways. 


5.1  CONNECTION  MANAGEMENT 


Connection  at  N-layer  is  an  association  established  between  the 
N-layer  peer  entities  to  be  used  by  the  users  above  the  N-layer. 
The  peer  entities  in  the  connection  are  identified  by  their 
addresses,  or  service  access  points.  Usually,  the  N-'layer 
protocol  user  initiates  the  N-layer  connection  establishment. 
The  complexity  of  the  connection  establishment  operation  at 
different  layers  is  dependent  on  the  specific  layer.  The 
connection  establishment  at  the  N  layer  requires  that  the  (N-l) 
layer  connection  is  available  and  both  N-layer  peer  entities  are 
in  the  state  in  which  they  can  execute  the  connection 
establishment  protocol  exchange.  Otherwise,  some  manipulation 
should  take  place  to  handle  the  exception.  There  are  different 
options  in  the  connection  establishment.  In  some  protocols, 
three-way  handshaking  are  used.  Some  protocols  allow  data 
transferring  by  the  connection  establishment  protocol  exchange. 


The  release  of  the  N-connection  is  normally  initiated  by  one  of 
user  above  the  N-layer.  It  may  also  be  initiated  by  one  of  the 
peer  entities  at  the  N-layer  as  a  result  of  an  exception  occurred 
at  the  N-layer  or  the  layer  below.  The  user  data  may  be  lost 
upon  this  condition.  The  orderly  release  of  the  N  connection 
requires  protocol  exchanges  between  the  N-layer  peer  entities. 
One  example  is  the  common  reference  to  time  in  the  connection 
release . 


The  connection  establishment  at  the  transport  layer  is  more 
complicated  functional  element,  and  quite  versatile  between 
different  transport  protocols.  Special  cares  are  required  in  the 
transport  gateways.  For  example,  when  the  connection 
establishment  is  initiated  by  the  TCP  user  through  the  gateway  to 
the  TP-4  user  at  the  other  side,  the  transport  gateway  needs  to 
act  as  the  TCP  peer  entity  and  the  TCP  user  in  order  to  get  the 
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connection  established  and  to  get  complete  information  from  the 
initiating  TCP  peer  entity.  It  also  needs  to  act  as  the  TP-4 
user  and  TP-4  peer  entity  in  order  to  establish  the  connection  to 
the  destination  TP-4  user.  Since  the  transparency  should  be 
available  during  the  operation,  more  intelligence  is  required  in 
the  transport  gateway.  Another  example  is  to  resolve  the 
difference  in  the  addressing.  The  solution  to  this  problem  can 
be  very  complicated,  depending  on  the  addressing  schemes 
involved . 


5.2  DATA  TRANSFER 


User  data  and  control  information  are  transferred  between  peer 
entities  using  protocol-data-units  (PDUs).  Several  functions  are 
required  in  the  gateway  for  the  operation. 


An  expedited  PDU  is  a  service  PDU  which  is  transferred  and 
processed  with  higher  priority  over  that  of  normal  PDUs.  It  is 
used  to  transfer  small  amount  of  data  infrequently,  such  as  for 
signaling  and  interrupt  purposes.  An  expedited  PDU  is 
transferred  independently  from  flow  control  over  the  normal  data, 
and  is  guaranteed  to  be  delivered  before  any  subsequent  normal 
PDU  or  expedited  PDU  can  be  sent  on  the  connection. 


Special  care  is  needed  in  the  gateway  design  for  the  data 
transfers.  For  example,  TP-4  allows  to  piggybacking  user  data  on 
a  connection  establishment,  while  TCP  does  not  support  this 
option.  TP-4  supports  the  expedited  data  transfers,  while  TCP 
supports  the  PUSH  option  in  the  normal  data  transfers. 


5.3  FLOW  CONTROL 


Flow  control  is  the  function  which  controls  the  amount  of  data 
flowing  within  a  layer  or  between  adjacent  layers.  The  flow 
control  which  regulates  the  data  rate  between  peer  entities  at 
the  same  layer  is  called  peer  flow  control.  The  flow  control 
which  regulates  the  data  rate  between  N-entity  and  (N-l)  entity 
is  called  layer  interface  flow  control.  There  exist  several 
flow  control  mechanisms,  and  the  "sliding  window"  is  one  such 
technique . 


5.4  SEQUENCING 


Sequencing  is  the  function  which  preserves  the  order  of  PDUs 
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being  transferred  between  peer  entities.  It  is  required  when  the 
received  data  may  not  be  guaranteed  to  be  in  the  same  order  as 
they  are  delivered.  Sequencing  usually  requires  additional 
protocol  control  information. 


5.5  MULTIPLEXING  AND  DEMULTIPLEXING 


Multiplexing  at  the  N-layer  is  the  function  by  which  more  than 
one  N-connections  are  supported  by  a  single  (N-l)  connection.  As 
protocol  data  are  multiplexed  by  the  sender,  demultiplexing 
should  be  performed  by  the  receiver  to  get  the  protocol  data 
recovered  for  different  connections. 


5.6  SPLITTING  AND  RECOMBINING 


Contrary  to  the  multiplexing,  splitting  at  the  N-layer  is  the 
function  that  one  N-connection  is  supported  by  more  than  one  (N- 
1)  connections.  As  protocol  data  are  splitted  at  the  sender, 
recombining  should  be  performed  at  the  receiver  to  recover  the 
protocol  data. 


5.7  SEGMENTING,  BLOCKING,  AND  CONCATENATION 


Segmenting  is  the  function  at  the  sender  which  maps  one  data  unit 
into  multiple  data  units,  or  packets.  Reassembling  is  the 
reverse  function  of  segmenting  on  the  receiver  side.  Blocking  is 
a  function  which  maps  multiple  data  units  into  one  data  unit  at 
the  same  layer.  Deblocking  is  performed  at  the  other  side  as  the 
reverse  function.  Concatenation  is  a  function  which  maps 
multiple  N  data  units  into  one  N-l  data  unit.  Separation  is 
required  at  the  other  side  as  the  reverse  function. 


5 . 8  ROUTING 


Routing  is  the  function  which  enables  communication  to  be 
relayed  by  a  chain  of  entities.  The  routed  communication  may  be 
transparent  to  both  higher  and  lower  protocol  layers.  Most  of 
routing  function  is  performed  at  the  network  layer.  The  routing 
function  is  a  special  important  issue  in  the  network  layer 
gateway  design  for  internetworking  environments.  Routing 
algorithms  must  account  for  differences  in  internet  addresses. 
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5 . 9  ERROR  HANDLING 


Error  handling  function  may  be  performed  in  several  ways  in  the 
OSI  layers.  An  acknowledgment  mechanism  may  be  used  to  obtain  a 
higher  probability  of  detecting  data  unit  loss.  The  data-unit  is 
made  uniquely  identifiable,  so  that  the  receiver  can  inform  the 
receipt  or  nonreceipt  of  the  data  unit.  The  sender  may  take 
remedial  action  accordingly.  Usually,  the  acknowledgment 
mechanism  may  require  additional  protocol  control  information. 
Other  error  detection  and  notification  functions  can  also  be  used 
for  the  similar  purpose,  such  as  "checksum"  and  "frame  check 
sequence"  operations  to  detect  the  errors  in  the  received  data- 
units . 


5.10  RESET 


Reset  is  a  function  which  sets  the  corresponding  peer  entities  to 
a  predefined  state  after  some  uncorrectable  error  conditions 
occur,  such  as  the  loss  of  synchronization.  It  may  cause  a 
possible  loss  or  duplication  of  data,  however,  all  protocol 
states  are  eventually  reset. 


5.11  MANAGEMENT 


There  exist  three  aspects  of  management  in  the  OSI  model.  The 
Application-management,  in  the  application  layer,  is  related  to 
the  management  of  OSI  application  processes.  The  system- 
management  relates  to  the  management  of  OSI  resources  and  their 
status  across  all  layers  of  the  OSI  architecture.  The  layer- 
management  relates  to  the  management  of  specific  layers,  partly 
performed  in  the  layer  such  as  activation  and  error  control  and 
partly  performed  as  a  subset  of  system-management. 


The  following  sections  describes  related  protocols  in  the  DDN 
environment  and  ISO/OSI  architecture,  based  on  the  definitions 
described  in  this  chapter. 
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PART  II. 


THE  DDN  PROTOCOL  SUITE 


This  and  the  following  chapters  explain  the  DDN  internetwork 
protocol  suite  in  detail,  with  the  emphasis  on  the  TCP  and  IP 
protocols.  Readers  who  are  knowledgeable  in  the  DoD  protocol 
suite  can  skip  the  sections  on  the  internal  protocol  mechanisms. 
For  readers,  not  versed  in  this  area,  the  following  sections 
offer  a  background  required  to  understand  the  DDN  and  ISO 
protocols . 


6.  DDN  INTERNET  ARCHITECTURE 


Besides  the  common  requirements  for  data  communication  networks, 
the  DoD  has  its  own  special  requirements  for  the  DDN  internet 
architecture : 


1)  The  security  concern  with  data  security  and  communication 
security; 

2)  The  survivability  concern  with  minimization  of  critical 
control  nodes; 

3)  The  reliability  concern  with  adaptive,  robust  data 
distribution . 


Accordingly,  the  DoD  adopted  the  internetworking  policy  to 
implement  the  Transmission  Control  Protocol  (TCP)  on  each  host  in 
the  internet  for  the  end-to-end  reliable  transport  protocol.  The 
Internet  Protocol  (IP),  the  Gateway  to  Gateway  Protocol  (GGP), 
and  the  Exterior  Gateway  Protocol  ( EGP)  were  defined  for  the 
intra-  and  inter-network  communication  protocols.  The  DDN 
Internet  architecture  and  its  protocol  suite  are  shown  in  Figure 
6.1.  Following  sections  describes  the  IP  and  TCP  protocols  in 
detail.  The  GGP  and  EGP  will  not  be  discussed  in  the  case  that 
they  are  not  closely  related  to  this  conversion  task. 
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Figure  6.1  DDN  Internet  Architecture 


7. 
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The  Internet  Protocol  (IP)  provides  the  basic  service  for 
transmitting  datagrams  between  source  and  destination  hosts.  It 
was  located  at  the  "Gateway"  level  in  original  DDN  Internet 
architecture,  and  now  it  is  located  in  the  "Internetwork" 
sublayer  as  shown  in  Figure  6.1.  The  IP  service  is  provided 
based  on  the  various  local  network  services  underneath  in  the 
"Network"  sublayer. 


1)  Datagram  Transfers.  The  datagrams  are  blocks  of  data,  or 
protocol  data  units  (PDUs)  in  OSI  Reference  Model.  In  the 
DoD  internetwork  environment,  a  datagram  is  an  independent 
data  entity  unrelated  to  each  other.  There  are  no 
connections  or  virtual  circuits  established.  The  PDUs  are 
sent  to  the  lower  layers  and  no  indication  is  received  of 
their  reaching  the  destination.  The  services  for 
reliability  in  the  data  transmission  are  provides  by  higher 
layer  protocol  (e.g.,  TCP)  above  the  Internet  Protocol. 


2)  Addressing.  The  IP  module  resides  in  each  network  host  and 
each  gateway  interconnecting  networks.  The  source  and 
destination  addresses  of  the  hosts  are  identified  by  a  fixed 
length  address  field  in  the  header  of  datagram  (32  bits). 
The  IP  modules  along  the  path  transmit  the  datagrams  from 
the  source  host  through  the  intermediate  hosts  and  gateways 
to  the  destination  while  making  routing  decisions  to  select 
the  transmission  path. 


3)  Fragmentation  and  reassembly.  The  IP  module  modifies  the 
size  of  the  datagrams  by  breaking  the  datagrams  to  small 
lengths  and  putting  them  back  together  later  at  the 
destination.  Ip  does  this  when  it  is  necessary  to  transmit 
long  datagrams  through  "smaller  packet"  networks. 


4)  Types  and  qualities  of  service.  It  is  a  generalized  set  of 
parameters  characterizing  different  service  choices,  to  be 
used  by  gateways  to  select  the  actual  transmission 
parameters  for  a  particular  network. 


7.1  OPERATIONAL  MODEL  DESCRIPTIONS 


The  IP  provides  datagram  service  to  upper  layer  protocols  such  as 
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TCP.  It  calls  for  services  from  Network  layer  and  lower  layers, 
depending  on  the  networks  connected.  Detected  errors  at  the  IP 
layer  are  reported  via  the  Internet  Control  Message  Protocol 
(ICMP)  which  is  required  to  be  implemented  with  IP. 


The  data  from  the  upper  layer  protocol  module  is  passed  to  the 
local  IP  module  with  the  destination  address  and  other  parameters 
as  the  arguments.  The  IP  module  prepares  a  datagram  header  with 
those  arguments  and  attaches  the  data  to  it.  It  also  determines, 
according  to  the  destination  address,  the  local  network  address 
for  the  immediate  receiver  (network  node  or  gateway).  The 
datagram  is  passed  to  the  local  network  interface  module.  The 
local  network  interface  module,  in  turn,  creates  its  own  packet, 
attaches  the  datagram  to  it,  and  sends  it  over  to  next  immediate 
receiver.  As  the  packet  is  received,  the  local  network  packet 
header  will  be  stripped  off,  the  datagram  will  be  handed  over  to 
the  IP  module.  That  IP  module  will  determine  whether  the 
datagram  reaches  the  destination  node.  If  not,  it  will  decide 
how  the  datagram  is  to  be  forwarded  to  next  receiver  by  the 
destination  address.  The  operations  will  be  repeated  until  the 
datagram  reaches  its  destination.  If  the  datagram  reaches  its 
destination,  the  IP  header  will  be  stripped  off,  and  the  data 
will  be  passed  over  to  the  upper  layer  protocol  module. 


The  upper  layer  protocols  may  use  logical  names  to  indicate  the 
destination  host  address.  And  mapping  are  performed  as: 


Protocol  level 


Happing  task 


Upper  levels 
IP  level 
Lower  level 


logical  name  —  Internet  address 

Internet  address  --  local  net  address 
local  net  address  —  routes 


It  should  be  noticed  that  one  host  can  have  several  physical 
interfaces  (multi-homing)  to  local  network,  or  a  single  physical 
host  can  use  several  distinct  internet  addresses,  acting  as  if  it 
were  several  distinct  hosts. 


The  fragmentation  takes  place  more  than  once  along  the  path  as 
necessary.  When  it  happens,  the  data  of  the  long  datagram  is 
divided  into  portions  on  a  eight-byte  boundary,  and  the  datagram 
header  will  be  duplicated  for  each  new,  shorter  datagram.  The 
total  length  field  in  the  headers  is  adjusted  to  current  actual 
length.  The  more-fragment  flag  of  all  but  last  datagram  is  set 
to  one,  and  is  copied  from  long  datagram  over  to  the  last  shorter 
datagram;  the  fragment  offset  field  of  all  shorter  datagrams  is 
set  to  the  sum  of  the  original  value  of  long  datagram  and  the 
offset  value  among  shorter  datagrams,  to  ensure  the  correctness 
for  multiple  fragmentation.  To  assemble  the  fragments 
correctly,  the  data  from  datagrams  with  same  identification, 
source  and  destination  addresses,  and  protocol  field  values  will 
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be  arranged  and  combined  according  to  the  fragment  offset  field 
of  each  datagram. 


7.2  PROTOCOL  SPECIFICATION 


The  datagram  header  format  of  the  IP  is  described  in  Figure  7.1. 


Version  (4  bits):  The  IP  version  is  4. 


Internet  Header  Length  (IHL,  4  bits):  The  length  of 

datagram  header  in  4-byte  words.  The  minimum  IHL  is  5 
without  any  options.  The  maximal  internet  header  is  60 
bytes . 


Type  of  Service  (8  bits):  These  are  parameters  for  the 
service  choice,  to  specify  the  treatment  of  the  datagram 
during  its  transmission  through  the  system,  as  explained  in 
Figure  7.2.  It  is  actually  a  three  way  tradeoff  between 
low-delay,  high-reliability,  and  high-throughput.  A  3-bit 
precedence  field  is  included. 


Total  Length  (16  bits):  The  length  of  the  datagram  in 
bytes.  All  hosts  must  be  prepared  to  accept  datagrams  of  up 
to  576  bytes. 


Identification  (16  bits):  The  identifying  value  assigned  by 
the  sender  to  help  in  assembling  the  fragments  of  a  datagram. 


Flags  (3  bits):  The  control  flag  for  fragmentation,  as 

described  in  Figure  7.3. 


Fragment  Offset  (13  bits):  The  offset  location  of  this 
fragment  in  the  assembled  datagram,  indicated  in  8-byte 
words.  The  fragment  offset  for  the  first  fragment  is  zero. 


Time  to  Live  (8  bits):  The  maximum  time  limit  in  seconds 
the  datagram  is  allowed  to  remain  in  the  internet  system.  It 
is  set  up  by  the  sender,  decreased  by  every  IP  module  along 
the  path,  and  the  datagram  is  self-destructed  when  it 
becomes  zero . 


Protocol  (8  bits):  This  field  indicates  the  next  level 

protocol  used  in  the  data  portion  of  the  internet  datagram. 
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Figure  7.1  IP  Header  Format 
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HI-  Network  Control 
1 10  -  Internetwork  Control 
101  -  CRITIC/ECP 
100  -.Flask  Override 
01 1  -  Flask 
0 10  -  Immediate 
00 1  -  Priority 
000  -  Routine 


Higk  Throughput 
Low  Delay 


Figure  7.2  Type  of  Service  in  IP 
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More  Fragment 
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Figure  7.3  Flags  in  IP 
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Some  of  the  examples  are  listed  in  Table  7.1. 


Header  Checksum  (16  bits):  It  is  one  verification  of 
correctness  in  the  transmission.  The  checksum  is  on  the 
header  only,  calculated  as  the  16-bit  one's  complement  of 
the  one's  complement  sum  of  all  16-bit  words  in  the  header. 
The  value  for  this  field  is  zero  for  the  calculation.  It  is 
recalculated  and  verified  at  each  point  that  the  internet 
header  is  processed. 


Source  Address  (32  bits) 

Destination  Address  (32  bits) 

There  are  three  classes  of  internet  addresses,  as 
illustrated  in  Figure  7.4.  There  classes  handle  the 
different  cases  underlying  subnetwork  types. 


Options  (in  variable  length):  It  is  another  field  that  the 
IP  users  can  use  to  specify  the  special  treatment  for  the 
datagram,  useful  in  some  special  situations,  including 
timestamps,  security,  and  special  routing.  Some  examples 
are  displayed  in  Figure  7.5. 


7 . 3  INTERFACE  DESCRIPTION 


IP  provides  two  kinds  of  service  calls  for  upper  layer  protocols. 
But  the  actual  implementation  is  more  or  less  system  dependent. 


SEND  (src,  dst,  prot,  TOS,  TTL,  BufPtr,  len,  id,  DF,  opt)  ==>  result 

Upon  unsuccessful  service  calls,  such  as  bad  arguments, 
unaccepted  datagram  by  local  network,  a  reasonable  report 
must  be  returned,  such  as  the  cause  of  the  failure,  to  the 
IP  user.  The  details  of  the  report  are  up  to  the 
implementation . 


RECV  (BufPtr,  prot)  ==>  (result,  src,  dst,  TOS,  len,  opt) 

When  the  IP  module  receives  an  incoming  datagram  from  local 
network  module,  it  will  pass  the  information  to  the  user,  if 
the  addressed  user  had  a  pending  RECV  call,  by  a  pseudo 
interrupt  or  similar  mechanism;  or  it  will  notify  the 
addressed  user.  If  the  user  does  not  exists,  an  ICMP  error 
message  will  be  returned  to  the  sender,  and  the  datagram  is 
discarded. 
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Table  7.1  Examples  of  Upper  Layer  Protocols  Using  IP 
Decimal  Keyword  Protocol 


1 

2 

3 

6 

8 

9 

11 

17 

18 
20 
21 

27 

28 

29 

30 

31 

32 

33 
63 


ICMP  Internet  Control  Message 

IGMP  Internet  Group  Management 

GGP  Gateway-to-Gateway 

TCP  Transmission  Control 

EGP  Exterior  Gateway  Protocol 

IGP  private  interior  gateway 

NVP-II  Network  Voice  Protocol 

UDP  User  Datagram 

MUX  Multiplexing 

HMP  Host  Monitoring 

PRM  Packet  Radio  Measurement 

RDP  Reliable  Data  Protocol 

IRTP  Internet  Reliable  Transaction 

ISO-TP4  ISO  Transport  Protocol  Class  4 

NETBLT  Bulk  Data  Transfer  Protocol 

MFE-NSP  MFE  Network  Services  Protocol 

MERIT-INP  MERIT  Internodal  Protocol 
SEP  Sequential  Exchange  Protocol 

any  local  network 


o  i  ?  8  n 

Class  A 

Class  B 

Class  C 

Figure  7.4  The  Classes  of  Internet  Addresses 


o  i  :  3 


Copied  Class  Number  Length  Description 


0 -  Control 

0  0  --  End  o/  option  list 

0  1  --No  operation 

0  2  11  Security 

0  3  var  Loose  source  routing 

0  7  var  Record  route 

0  d  4  Stream  ID 

0  9  var  Strict  source  routing 

2 . .  Debugging  &  measurement 

1 


Figure  7.5  Options  of  the  IP 
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8.  INTERNET  CONTROL  MESSAGE  PROTOCOL  t ICMP! 


The  Internet  Control  Message  Protocol  (ICMP)  is  actually  realized 
in  many  implementations  as  an  integral  part  of  the  IP  module. 
ICMP  provides  the  destination  hosts  or  gateways  with  the  error 
reporting  facilities  about  problems  in  communication  environment. 
The  ICMP  messages  are  treated  by  the  IP  module  as  the  data 
portion  of  the  datagram,  when  the  "protocol"  field  of  the  IP 
header  equals  "1".  The  format  for  most  ICMP  messages  are 
described  in  Figure  8.1.  And  the  types  of  the  ICMP  messages  with 
different  code  are  listed  in  Table  8.1. 


9.  USER  DATAGRAM  PROTOCOL  ( UDP ) 


The  User  Datagram  Protocol  (UDP)  provides  a  transaction  oriented 
procedure  for  application  programs  to  send  messages  with  minimum 
protocol  overhead.  It  assumes  the  IP  as  underlying  protocol, 
when  protocol  field  value  equals  17.  In  UDP,  delivery  and 
duplicate  protection  are  not  guaranteed.  It  is  quite  similar  to 
the  ISO  TP-0  which  assumes  that  the  underlying  Network  Layer  can 
provide  reliable  datagram  services.  It  is  more  suitable  to 
applications  which  requires  the  least  protocol  overhead,  and  it 
is  not  so  critical  to  lose  a  small  part  of  the  data.  The  UDP 
header  format  is  shown  in  Figure  9.1.  The  major  uses  of  UDP  is 
the  Internet  Name  Server,  and  the  Trivial  File  Transfer. 


10.  TRANSMISSION  CONTROL  PROTOCOL  (TCP) 


The  Transmission  Control  Protocol  (TCP)  is  a  connection-oriented, 
highly  reliable  end-to-end  protocol  between  hosts  in  the 
interconnected  packet-switching  computer  networks.  By 
connection-oriented,  it  means  that  the  TCP  establishes,  and 
maintains  the  virtual  circuit,  or  connection,  between  two 
communicating  processes  on  the  source  and  destination  hosts.  It 
is  assumed  that  only  unreliable  datagram  services  are  provided  as 
the  underlying  Network  Layer  protocol,  and  the  TCP  must  recover 
from  data  segments  that  are  damaged,  lost,  duplicated,  or 
delivered  out  of  order.  The  TCP  is  located  at  the  Host  Level  in 
the  DDN  internetworking  architecture  as  described  in  Figure  6.2, 
and  at  the  Transport  and  part  of  Session  Layers  in  the  ISO  -  OSI 
reference  model.  Following  functions  are  provided  by  the  TCP. 
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Unused 


Type 


Code 


Checksum 


Internet  (lender  ♦  64  bits  of  original  datat* 


Figure  8.1  ICMP  Message  Format 


Table  8.1  Some  Examples  of  ICMP  Message  Type 
Type  Code  Description 


0 

3 

3 

3 

3 

3 

3 

3 

4 

5 
5 
5 
5 
5 
8 

11 

11 

11 

12 

13 

14 

15 

16 


0  Echo  Reply 

Destination  Unreachable 
0  net  unreachable 

1  host  unreachable 

2  protocol  unreachable 

3  port  unreachable 

4  fragmentation  needed  and  DF  set 

5  source  route  failed 
Source  Quench 
Redirect 

0  redirect  for  network 

1  redirect  for  host 

2  redirect  for  type  of  service  &  network 

3  redirect  for  type  of  service  &  host 

0  Echo 

Time  Exceeded 

0  time  to  live  exceeded  in  transit 
1  fragment  reassembly  time  exceeded 
0  Parameter  Problem 
0  Timestamp 

0  Timestamp  Reply 
0  Information  Request 
0  Information  Reply 


0  IS  16  31 


Source-Poet 

Destin-Por  t 

Length 

Checksum 

Data  . . . 


Figure  9.1  User  Datagram  Protocol  Header  Format 
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a.  Basic  Data  Transfer.  The  TCP  module  accepts  user  data  as  a 
continuous  stream  of  bytes,  packages  them  appropriately  into 
data  segments  with  the  TCP  header,  and  calls  the  lower 
Network  Layer  module  (e.g.  the  IP)  to  transfer  the  data. 
The  user  can  also  "push”  the  TCP  module  to  deliver  the 
accumulated  data  to  the  receiver  immediately. 

b.  Reliability.  Each  byte  in  the  data  stream  conceptually  has  a 
sequence  number.  The  sequence  number  of  the  first  byte  in 
the  data  segment  is  indicated  in  the  TCP  header.  If  the 
sender  does  not  receive  positive  acknowledgment  in  a  certain 
timeout  period  from  the  receiver,  the  data  segment  is 
assumed  damaged  or  lost,  and  retransmitted.  A  checksum  is 
also  added  to  each  data  segment  for  receiver  to  detect  and 
discard  the  damaged  data.  The  sequence  number  is  also  useful 
for  receiver  to  detect  and  discard  the  duplicated  data,  and 
to  relocate  the  data  segments  which  are  delivered  out  of 
order . 


c.  Flow  control.  The  TCP  provides  the  receiver  with  the 
"window"  facility  to  indicate  the  allowed  number  of  bytes 
that  the  sender  may  transmit  before  receiving  further 
permission.  Flow  control  operations  proceed  from  this  field. 


d.  Multiplexing.  Different  applications  on  hosts  are  assigned 
with  different  "port"  addresses,  so  that  many  processes  in  a 
single  host  can  use  the  same  TCP  communication  facilities 
simultaneously.  The  internet  and  the  port  addresses  make  a 
socket  which  uniquely  identifies  one  side  of  a  connection. 


e.  Connection.  The  TCP  initializes  and  maintains  certain 
status  information  for  each  data  stream  for  reliable  data 
communications.  It  is  called  a  connection,  including 
sockets,  sequence  numbers,  and  window  sizes. 


f.  precedence  and  security.  The  TCP  makes  use  of  the  "type  of 
service"  field  and  the  security  option  for  the  service. 


10.1  OPERATIONAL  MODEL  DESCRIPTIONS 


The  TCP  module  is  usually  implemented  as  a  device  in  the  file 
system  of  an  operating  system.  After  establishing  a  connection 
(similar  to  OPEN  device),  the  application  processes  in  computer 
hosts  transmit  data  by  calling  on  the  TCP  module  through  device 
driver  and  passing  buffers  of  data  as  arguments.  The  TCP  packages 
the  data  from  these  buffers  into  segments  with  the  control 
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information  to  ensure  the  reliable  transmission,  and  and  calls  on 
the  IP  module  to  transmit  each  segments  to  the  destination  TCP. 
The  IP  module  will  route  the  datagrams  through  local  networks  and 
intermediate  gateways,  fragment  and  reassemble  them  if  necessary, 
as  described  in  previous  sections.  The  receiving  TCP  module  will 
place  the  data  from  a  segment  into  receiving  user's  buffer  and 
notifies  the  user.  The  state  transition  of  a  connection  in  TCP 
over  which  data  are  transferred  can  be  described  by  a  finite 
state  machine,  as  shown  in  Figure  10.1. 


The  CLOSED  state  represents  no  connection.  If  the  local  TCP 
receives  a  passive  OPEN  call  from  TCP  user,  it  will  create  a 
transmission  control  block  (TCB),  fill  the  TCB  with  control 
parameters  from  the  OPEN  call,  and  change  its  state  to  LISTEN  to 
incoming  OPEN  calls.  On  an  active  OPEN  call,  the  TCB  will  be 
created,  and  the  TCP  will  start  the  procedure  to  establish  the 
connection  at  once. 


TCP  uses  three-way  handshake  for  the  connection  establishment. 
It  is  necessary  because  the  initial  sequence  numbers  are  selected 
using  local  clock  in  a  4.55  hour  period,  not  a  global  clock.  The 
LISTEN  TCP  has  no  way  of  knowing  whether  it  is  an  old  delayed 
OPEN  or  not,  and  it  must  ask  OPEN  initiator  to  verify  it. 


The  data  transfer  proceeds  in  the  ESTAB  state. 


When  the  local  TCP  receives  a  CLOSE  call  from  user,  it  will  send 
a  FIN  packet  to  remote  TCP,  and  change  to  FIN  WAIT-1  state.  The 
remote  TCP  will  send  back  an  ACK,  notify  its  user  through  the 
return  parameters  of  any  user  call,  and  stay  in  CLOSE  WAIT.  Data 
transfer  can  still  be  performed  at  this  moment.  When  the  remote 
TCP  receives  a  CLOSE  from  its  user,  it  will  send  a  FIN  packet, 
wait  for  acknowledgment,  and  change  to  CLOSED  state.  The  local 
TCP  will  send  an  ACK  packet  to  remote  TCP,  wait  for  2  MSec  TIME- 
WAIT,  and  change  to  CLOSED  state. 


The  state  of  the  connection,  along  with  other  control  parameters, 
are  stored  in  the  transmission  control  block  (TCB).  Those 
parameters  include  send  sequence  variables  (initial  send  sequence 
number,  segment  sequence  number  for  last  window  update  and  send 
window,  send  unacknowledged,  next  send  sequence  number,  etc.); 
receive  sequence  variables  (similar  to  send  sequence  variables); 
and  current  segment  variables  (segment  sequence  number, 
acknowledgment  number,  length,  window,  urgent  pointer,  and 
precedence  value) .  TCP  module  maintains  the  connection  status 
upon  incoming  user  calls  or  incoming  packets. 
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Figure  10.1  TCP  Connection  State  Diagram 
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10.2  PROTOCOL  SPECIFICATIONS 


The  TCP  header,  described  in  Figure  10.2,  is  sent  along  with  user 
data  as  the  data  portion  of  the  internet  datagram,  immediately 
following  the  IP  header. 


Source  Port  (16  bits) 

Destination  Port  (16  bits) 

Ports  are  used  in  the  TCP  to  name  the  ends  of  connections 
for  the  communication.  For  the  purpose  of  providing 
services  to  unknown  callers,  some  service  contact  ports, 
also  called  "well-known  ports",  are  pre-defined,  and  some 
examples  are  listed  below  in  Table  10.1. 


Sequence  Number  (32  bits):  The  sequence  number  of  the  first 
byte  in  the  data  segment.  If  the  packet  is  SYN  for  OPEN 
request,  this  field  contains  the  Initial  Sequence  Number 
(ISN). 


Acknowledgment  Number  (32  bits):  The  sequence  number  of  the 
data  byte  the  receiver  is  expecting  to  receive,  when  the  ACK 
control  bit  is  set. 


Data  Offset  (4  bits):  The  length  of  the  TCP  header  in  32 
bits  word. 


Control  Bits  (6  bits):  The  Bit  pattern  is  shown  in  Figure 
10.3,  and  the  meaning  is  explained  below: 

URG:  Urgent  Pointer  field  significant 

ACK:  Acknowledgment  field  significant 

PSH:  Push  function 

RST:  Reset  the  connection 

SYN:  Synchronize  sequence  numbers 

FIN:  Finish,  no  more  data  from  sender 


Window  (16  bits):  The  number  of  bytes  the  receiver  is  will 
to  accept.  It  is  started  from  the  byte  indicated  in  the 
acknowledgment  field. 


Checksum  (16  bits):  The  checksum  for  all  16-bit  words  in 
the  header  text,  and  a  96-bit  pseudo  header.  It  is 
calculated  as  the  one's  complement  of  the  one's  complement 
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sum  of  all  16-bit  words. 


Urgent  Pointer  (16  bits):  The  offset  of  the  end  of  urgent 
data  from  the  sequence  number,  when  the  URG  control  bit  is 
set . 


Options  (variable  length):  TCP  module  must  implement  all 

options . 


Kind  Length  Meaning 


0 

1 

2 


end  of  option  list 
no-op 

4  maximum  segment  size,  indicated  in  16-bit  field 


10.3  THE  INTERFACE  DESCRIPTIONS 


There  exist  two  kinds  of  interfaces:  the  User/TCP  interface,  and 
the  TCP/IP  interface.  The  upper  protocol  layers  use  the  user/TCP 
interface  to  communicate  with  TCP. 


10.3.1  The  User/TCP  Interface 


The  User /TCP  interface  is  realized  by  the  calls  by  the  TCP  users 
to  the  TCP  module. 


OPEN  (local_port,  foreign_socket ,  active/passive,  [, timeout] 
^precedence]  [, security/compartment ]  [, options]) 

==>  local_conn_name 

This  call  is  used  by  TCP  user  to  establish  a  connection  with 
the  destination  host  with  the  address  indicated  by  the 
f oreign^socket . 

If  the  active/passive  flag  is  set  to  passive,  it  is  a  call 
to  LISTEN  for  incoming  connection,  for  any  call  if  the 
foreign_socket  is  unspecified,  or  for  a  particular  call  if 
the  foreign_socket  is  fully  specified. 

The  timeout  gives  a  time  limit  on  delivering  the  user  data. 
If  the  user  data  is  not  successfully  delivered  within  the 
time  limit,  the  connection  is  aborted.  The  default  value  for 
timeout  is  5  minutes . 

The  TCP  module  accept  incoming  requests  only  if  the 
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security/compartment  information  is  exactly  the  same,  and 
the  precedence  is  equal  or  higher  than  that  in  the  OPEN 
call . 


SEND  ( local_conn_name,  buf_addr,  bytes,  PUSH,  URGENT,  [, timeout]) 

This  call  is  used  by  the  TCP  user  to  send  data  over  the  TCP 
connection . 

In  handling  the  data  transfer,  the  TCP  module  will  send  the 
data  in  the  buffer  immediately  to  the  receiver  if  the  PUSH 
flag  is  set;  otherwise,  the  data  may  be  combined  with  data 
from  subsequent  SENDs  for  the  efficiency. 

When  the  URGENT  flag  and  the  urgent  pointer  is  set,  the 
receiving  TCP  will  signal  the  TCP  user  if  the  data 
preceding  the  urgent  pointer  has  not  been  consumed  yet.  It 
is  used  to  stimulate  the  receiver  to  process  the  urgent 
data. 


RECEIVE  ( local_conn_name ,  buffer,  bytes)  ==>  bytes,  URGENT,  PUSH 

This  call  is  used  by  the  TCP  user  to  allocate  a  receiving 
buffer  associated  with  the  connection.  The  buffer  will  be 
filled  with  as  much  incoming  data  as  it  can  hold  if  there  is 
no  PUSH  flag  set  in  incoming  packet.  Otherwise,  the  buffer 
will  be  returned  with  partially  filled  data. 


CLOSE  ( local_conn_name) 

This  call  is  used  to  close  the  specified  connection,  after 
gracefully  transmitting  outstanding  SENDS.  In  this  case, 
the  CLOSE  from  TCP  user  means  only  "no  more  data  to  SEND", 
but  not  means  "no  data  will  be  received". 


ABORT  ( local_conn_name) 

This  call  is  used  to  cause  all  pending  SENDs  and  RECEIVES  to 
be  aborted,  the  TCB  to  be  removed,  and  special  RESET  message 
to  be  sent  to  the  TCP  module  on  the  other  side. 


STATUS  ( local_conn_jname)  =*>  status  data 

The  status  data  returned  includes:  local  and  foreign 
sockets,  local  connection  name,  receive  and  send  window, 
connection  state,  number  of  buffers  awaiting  acknowledgment 
and  pending  receipt,  urgent  state,  precedence, 
security/compartment ,  and  transmission  timeout. 
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o  3 _ to _  15  I  6 _ 2  3  24 _ 31 


Source  Port 

Destination  Port 

Sequence  Number  . 

Acknowledge  Number 

Oat* 

ottaat 

reserve 

Flags 

Window 

Checksum 

Urgent  Pointer 

Options 

Padding 

Data 

Figure  10.2  The  TCP  Header  Format 


to  It  1 2  13  H  I? 


URG  -  Urgent - 1 

ACK  -  Acknowledge — * 

PSH  -  Push - 

RST  -  Reset - 

SYN  -Synchronize  — 
FIN  -Finish - 


Figure  10.3  The  Bit  Pattern  of  Control  Bits 
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Table  10.1  Examples  of  TCP  Ports 
Decimal  Keyword  Description 


5 

7 

9 

11 

13 

19 

20 
21 
23 
25 
37 
39 

41 

42 

43 
49 
51 
53 
63 
65 

67 

68 
69 

71 

72 

73 

74 
93 
95 
97 
101 
102 

103 

104 

105 
107 
109 
113 
115 
117 
119 
123 
125 
127 
129 
133 

136 

137 

138 

139 
243 


RJE  Remote  Job  Entry 

ECHO  Echo 

DISCARD  Discard 

USERS  Active  Users 

DAYTIME  Daytime 

CHARGEN  Character  Generator 

FTP-DATA  File  Transfer  [Data] 

FTP  File  Transfer  [Control] 

TELNET  Telnet 

SMTP  Simple  Mail  Transfer 

TIME  Time 

RLP  Resource  Location  Protocol 

GRAPHICS  Graphics 

NAMESERVER  Host  Name  Server 


NICNAME 

LOGIN 

LA-MAINT 

DOMAIN 

VIA-FTP 

TACACS-DS 

BOOTPS 

BOOTPC 

TFTP 

NETRJS-1 

NETRJS-2 

NETRJS-3 

NETRJS-4 

DCP 

SUPDUP 

SWIFT-RVF 

HOSTNAME 

ISO-TSAP 

X400 

X400-SND 

CSNET-NS 

RTELNET 

POP -2 

AUTH 

SFTP 

UUCP -PATH 

NNTP 

NTP 

LOCUS-MAP 
LOCUS -CON 
PWDGEN 
STATS RV 
PROFILE 
NETBIOS-NS 


Who  Is 

Login  Host  Protocol 

IMP  Logical  Address  Maintenance 

Domain  Name  Server 

VIA  Systems  -  FTP 

TACACS-Database  Service 

Bootstrap  Protocol  Server 

Bootstrap  Protocol  Client 

Trivial  File  Transfer 

Remote  Job  Service 

Remote  Job  Service 

Remote  Job  Service 

Remote  Job  Service 

Device  Control  Protocol 

SUPDUP 

Swift  Remote  Vitural  File  Protocol 

NIC  Host  Name  Server 

ISO-TSAP 

X400 

X400-SND 

Mailbox  Name  Nameserver 

Remote  Telnet  Service 

Post  Office  Protocol 

Authentication  Service 

Simple  File  Transfer  Protocol 

UUCP  Path  Service 

Network  News  Transfer  Protocol 

Network  Time  Protocol 

Locus  PC-Interface  Net  Map  Server 

Locus  PC-Interface  Conn  Server 

Password  Generator  Protocol 

Statistics  Service 

PROFILE  Naming  System 

NETBIOS  Name  Service 


NETBIOS-DGM  NETBIOS  Datagram  Service 
NETBIOS-SSN  NETBIOS  Session  Service 


SUR-MEAS  Survey  Measurement 
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10.3.2  The  TCP/IP  interface 


The  TCP  module  calls  IP  module  to  Send  and  Receive  data  over 
networks.  The  interface  to  IP  is  described  in  Section  7.3.  The 
default  values  for  the  type  of  service  in  IP  are  listed  below: 


Precedence : 
Delay: 
Throughput : 
reliability: 
Time  to  Live: 


routine 
normal 
normal 
normal 
1  minute 
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PART  XII.  THE  ISO /OS I  PROTOCOL  ARCHITECTURE 


In  this  and  following  chapters,  the  OSI  basic  reference  model  and 
the  ISO  Session,  Transport,  and  Network  Layer  protocols  are 
reviewed.  This  section  of  ISO  protocol  studies  and  previous 
section  of  TCP/IP  protocol  studies  should  prepare  the  reader  for 
the  transport  layer  gateway  discussion  in  the  next  section. 


11.  TH£  I££  Mfi  THE  QEI  REFERENCE  MODEL 


To  avoid  the  confusion  with  the  ISO  standard's  documentation,  the 
ISO  organization  and  the  standards  documentation  procedures  are 
explained  in  this  chapter.  It  also  describes  the  OSI  basic 
reference  model,  and  gives  the  global  view  of  the  ISO  protocols. 


11.1  THE  ISO  AND  THE  ISO  STANDARDS  DOCUMENTING 


The  International  Standards  Organization,  or  ISO,  is  a  world-wide 
organization  for  producing  the  international  standards  in  all 
areas.  It  is  divided  into  Technical  Committees  (TC), 
Subcommittees  (SC),  and  Working  Groups  (WG)  to  deal  with  problems 
in  specific  branches  of  different  areas.  The  technical  committee 
97  (TC97)  is  specialized  in  the  information  processing  systems. 
There  are  three  subcommittees  in  TC97  related  to  the  Open  System 
Interconnection  (OSI),  as  described  in  Figure  11.1.  Other 
working  groups  not  in  the  figure  include  Computer  Graphics, 
Conceptual  Schema,  Database  Languages,  Data  Descriptive  File,  and 
Text  and  Office  Systems. 


All  international  standards  are  processed  through  the  ISO  in  a 
similar  way.  Each  working  group  works  on  the  Working  Drafts  for 
the  required  standards,  labeled  as 

ISO/TC#/SC#/  [WG#/]  N# 


After  step-by-step  approval,  it  becomes  Draft  Proposals  (DP), 
Draft  International  Standards  (DIS).  After  the  approval  on  a  DIS 
ballot,  the  DIS  becomes  an  international  standard  (IS).  DP,  DIS, 
and  IS  are  labeled  by 

ISO  DP  #,  or 
ISO  DIS  #,  or 
IS  # 


40 


J 


Technical  Committee  97  -  Information  Processing  Systems 


TC97/SC6 

Telecommunications  anti 
Information  Exchange 
Between  Systems 


WG1  -  Data  Link  Layer 

WG2  -  Network.  Layer 

WG3  -  Physical  Layer 

WG4  -  Transport  Layer 

WG5  -  Architecture  of  Layer  I- 


TC97/SC1 3 

Interconnection  of 
Equipment 


WG  1  -  Process  Interfaces 

WG2  -  Interface  Standards  Administration 

WG3  -  Lower -Level  Interfaces 


TC97/SC2 I 

Information  Retrieval,  Transfer, 
and  Management  for  Open 
Systems  Interconnection 


WG  1  -OSI  Architecture 

WG4  -  OSI  Management 

WG5  -  Appiication/Presentation  Layers 

WG6  -  Session  Layer 


Figure  11.1 


Organization  Chart 


Latsc 


Application 

Presentation 

Session 

Transport 

Network 

Data  Link 

Physical 


- H 


- > 


- H 


Figure  11.2  OSI  Basic  Reference  Model 


where  the  number  #  is  kept  the  same.  The  amendment  to  the 
international  standards  is  produced  in  the  same  way,  except 
labeled  as  Working  Draft,  Draft  Proposed  Addendum  (DPAD  #),  Draft 
Addendum  (DAD  #),  and  Addendum  (AD#).  The  ISO  standards  are 
reviewed  periodically,  usually  on  a  five-year  cycle. 


11.2  THE  OSI  BASIC  REFERENCE  MODEL 


The  Open  System  Interconnection  (OSI)  basic  reference  model  was 
developed  to  provide  a  common  basis  for  the  coordination  of 
standards  development  while  allowing  existing  standards  to  be 
placed  into  perspective  within  the  model.  The  model  provides  a 
conceptual  and  functional  framework  for  the  definition  of 
services  and  protocols  within  the  boundaries  It  includes 
sufficient  flexibility  to  accommodate  advances  in  technology  and 
expansion  in  user  demands,  so  as  to  allow  teams  to  work 
productively  and  independently  in  standards  development.  It  is 
intended  to  ease  the  tasks  to  identify  areas  for  developing  or 
improving  standards,  and  to  provide  a  common  reference  for 
maintaining  consistency  of  all  related  standards. 


In  ISO  standard  7498  [ISO  7498],  the  definitions  and  environment 
of  Open  system  Interconnection,  and  the  modeling  of  the  OSI 
environment  is  introduced.  It  describes  the  concept  of  a  layered 
architecture  as  a  basic  structuring  technique.  Open  systems  in 
the  OSI  reference  model  are  decomposed  into  seven  layers,  as 
shown  in  Figure  11.2.  Similar  functions  in  OSI  are  grouped  into 
the  same  layer  so  as  to  localize  changes,  to  minimize  and 
standardize  interfaces,  and  to  facilitate  creating  sublayers  for 
optional,  specific  functions.  This  standard  also  describes,  by 
layers,  the  definition,  the  services  provided  to  upper  layer,  and 
the  functions  within  the  layer  for  each  of  the  seven  layers  in 
the  OSI  reference  model.  Table  11.1  summarizes  the  OSI  layers 
and  services . 


11.3  ISO  STANDARDS 


The  ISO  standards  documents  currently  available  cover  a  large 
range  of  different  areas,  and  many  of  them  are  still  the  draft 
proposals  (DP).  Table  11.2  contains  a  list  of  ISO  documents 
related  to  the  OSI. 
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Table  11.1  OSI  Layers  and  Services 


Layer 


7  Application 
Layer 


6  Presentation 
Layer 


5  Session 
Layer 


4  Transport 
Layer 


3  Network 
Layer 


2  Data  Link 
Layer 


I  Physical 
Layer 


Services 


'provides  end-users  with  comprehensive  interface  into  ail  kinds 
of  distributed  information  services  (document  distribution, 
electronic  mail,  distributed  transaction  processing) 


'Identifies,  negotiates  communications  transfer  syntax 
'formats  data  (binary,  ASCII.  EBCDIC,  graphics,  numerics) 
'provides  special  transformation  (compression,  encryption) 


'provides  session-connection  establishment,  and  release 
'supports  application  process  dialog 
'exchanges  normal  and  expedited  data 


'provides  for  establishment,  data  transfer,  and  termination  of 
logical  connections  between  session  entities 

'provides  end-to-end  information  interchange  and  control 

'provides  error  detection  and  recovery 


'provides  network  routing  and  connection  services 
'segments  and  blocks  network  messages 
'provides  expedited  data  transfer 
•provides  error  detection,  recovery,  and  notification 


'initializes  and  disconnect  data  link  between  adjacent  nodes 

'transfers  data  over  link 

'provides  error  detection  and  correction 


"provides  physical  interface  through  electrical,  mechanical, 
procedural,  and  functional  means 


Table  11.2  ISO  /  OSI  Documents 


ISO/OSI  Doc 


Description 


General ; 


IS  7498 

TR  8509 

DP  8807 

DP  9074 

OSI  Basic  Reference  Model 

Service  Conventions 

LOTOS  -  Description  of  the  Temporal  Ordering 
Specification  Language 

ESTELLE  -  A  Formal  Description  Based  on  an 
Extended  State  Transition  Model 

ADDlication  Layer: 

DIS  8571 

DIS  8649 

DIS  8650 

DIS  9040 

DIS  9041 

File  Transfer,  Access  and  Management 

Definition  of  Common  Application  Service  Elements 
Specification  of  Protocol  for  Common  Application 
Service  Elements 

Basic  Class  Virtual  Terminal  Service 

Basic  Class  Virtual  Terminal  Protocol 

Presentation  Laver: 

DIS  8822 

DIS  8823 

DIS  8824 

DIS  8825 

Connection  Oriented  Presentation  Service 
Definition 

Connection  Oriented  Presentation  Protocol 
Definition 

Specification  of  Abstract  Syntax  Notation  One 
( ASN . 1) 

Basic  Encoding  Rules  for  Abstract  Syntax  Notation 
One  ( ASN . 1 ) 

Session  Layer: 

DIS  8326 

DIS  8327 

Basic  Connection-Oriented  Session  Service 
Definition 

Basic  Connection-Oriented  Session  protocol 
Specification 

Tsangpprt;  Laver 

• 

• 

IS  8072 

IS  8073 

DIS  8602 

Transport  Service  Definition 

Transport  Protocol  Specification 

Protocol  for  Providing  the  Connectionless-mode 
Transport  Service 
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getwQirt  Layer? 


DIS 

8208 

X.25  Packet  Level  Protocol  for  Data  Terminal 
Equipment 

DIS 

8348 

Network  Service  Definition 

IS 

8473 

Protocol  for  Providing  the  Connectionless-mode 
Network  Service 

DIS 

8648 

Internal  Organization  of  the  Network  Layer 

DIS 

8878 

Use  of  X.25  to  Provide  the  OSI  Connection-mode 
Network  Service 

DIS 

8881 

Use  of  the  X.25  Packet  Level  Protocol  in  Local 
Area  Networks 

DIS 

8882 

X.25--DTE  Conformance  Testing 

Data  Link  Layer 

• 

• 

IS 

4335 

HDLC  Procedures  -  Consolidation  of  Elements  of 
Procedures 

DIS 

7478 

Multilink  Procedures 

IS 

7776 

HDLC  Procedures  -  X.25  LAPB-Compatible  DTE  Data 
Link  Procedures 

IS 

7809 

HDLC  Procedures  -  Consolidation  of  Classes  of 
Procedures 

IS 

8471 

HDLC  Balanced  Classes  of  Procedures  -  Data  Link 
Layer  Address  Resolution/Negotiation  in  Switched 
Environments 

DIS 

8802 

Local  Area  Networks 

DIS 

8885 

HDLC  Procedures  -  General  Purpose  XID  Frame 
Information  Field  Content  and  Format 

DIS 

8886 

Data  Link  Service  Definition  for  OSI 

Physical  Layer: 

SC6/N3631 

Physical  Service  Definition 

DIS 

2110 

25-pin  DTE/DCE  Interface  Connector  and  Pin 
Assignments 

DIS 

4902 

37-pin  DTE/DCE  Interface  Connector  and  Pin 
Assignments 

DIS 

4903 

15-pin  DTE/DCE  Interface  Connector  and  Pin 
Assignments 

DIS 

8480 

DTE/DCE  Interface  Back-up  Control  Operation  Using 
the  25  Pin  Connector 

IS 

8481 

DTE  to  DTE  Physical  Connection  Using  X.24 
Interchange  Circuits  with  DTE  Provided  Timing 

DIS 

8482 

Twisted  Pair  Multipoint  Interconnections 

DIS 

8877 

Interface  Connector  and  Contact  Assignments  for 
ISDN  Basic  Access  Interface  Located  at  Reference 
Points  S  and  T 

DIS 

9067 

Automatic  Fault  Isolation  Procedures  Using  Test 
Loops 
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11.4  CONCEPTS  OF  CONNECTION-  AND  CONNECTIONLESS-MODE 


Another  important  concept  related  to  this  protocol  conversion 
task  is  the  concepts  of  Connection-mode  and  Connectionless-mode 
transmission.  In  the  ISO  documents,  these  modes  are  called 
connection-oriented  and  connectionless  services,  respectively. 


A  connection,  in  the  formal  terminology  of  the  OSI  Reference 
Model,  is  an  association  between  two  or  more  peer-entities 
established  for  data  transfer.  In  addition  to  three  distinct 
phases  of  Connection  Establishment,  Data  Transfer,  and  Connection 
Release  operations,  and  distinguishable  lifetime  of  those  phases, 
it  has  following  fundamental  characteristics: 

1)  It  involves  establishing  and  maintaining  of  two  or  more 
party  agreement  concerning  data  transfer  between  the  peer- 
entities  and  the  layer  providing  the  service; 

2)  It  allows  the  negotiation  among  all  the  parties  concerned  of 
the  parameters  and  options  that  will  govern  the  data 
trans  f er ; 

3)  It  provides  connection  id  in  which  the  overhead  associated 
with  address  resolution  and  transmission  can  be  avoided 
during  the  data  transfer  phase; 

4)  It  provides  a  context  in  which  successive  data  units 
transferred  between  the  peer-entities  are  logically  related, 
and  therefore  with  the  preservation  of  sequence  and 
provision  of  flow  control. 


These  connection  oriented  characteristics  are  attractive  in  a 
wide  range  of  applications  which  call  for  relatively  long  lived, 
stream-oriented  interactions  between  entities  in  stable 
configurations . 


In  contrast,  the  connectionless-mode  transmission,  or  so  called 
"message-mode”,  "datagram",  "transaction  mode",  and  "connection 
free",  has  always  played  an  important  role.  It  is  basically  the 
transmission  of  a  single  data  unit  from  a  source  service-access- 
point  to  one  or  more  service-access-points  without  establishing  a 
connection,  by  performing  a  single  service  access.  It  has 
following  fundamental  characteristics: 

1)  It  requires  only  a  pre-existing  association  between  the 
peer-entities  involved,  without  any  peer-to-peer  agreement 
in  using  the  service; 

2)  All  the  information  required  to  deliver  a  data  unit 
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(addresses,  quality  of  service,  options,  etc.)/  together 
with  data  transmitted,  is  presented  to  the  layer  providing 
the  connectionless-mode  service  in  any  single  service 
access.  As  a  result,  it  may  also  true  that 

3)  Each  data  unit  transmitted  is  entirely  self-contained  and 
can  be  routed  independently; 

4)  Copies  of  a  data  unit  may  be  transmitted  to  a  number  of 
destination  addresses. 


The  characteristics  of  the  connectionless-mode  transmission  are 
attractive  in  applications  which  involve  short-term 
request /response  interactions,  exhibit  a  high  level  redundancy, 
must  be  flexibly  reconf igur able ,  or  derive  no  benefit  from 
guaranteed  in-sequence  data  delivery. 


Protocols  in  some  layers  are  described  separately  in  the 
transmission  modes.  DIS  8473  defines  the  standard  for  providing 
connectionless-mode  network  service  (CLNS),  very  similar  to  that 
of  DDN  Internet  Protocol  (IP).  Both  DDN  TCP  and  ISO-TP  feature 
connection-mode  transport  service.  The  next  two  sections 
describe  the  ISO  Network  and  Transport  layer  services  and 
protocols . 


12.  Tim  NETWORK  LAYER 


The  Network  Layer  provides  the  means  to  establish,  maintain  and 
terminate  network-connections,  and  the  functional  and  procedural 
means  to  exchange  network-service-data-units  between  transport- 
entities,  with  the  independence  from  routing  and  relay 
considerations . 


12.1  NETWORK  SERVICE  DEFINITION  (DIS  8348) 


This  standard  defines  the  Network  Service  in  OSI  Reference  Model, 
and  Network  Service  primitives,  mainly  for  connection-mode  type. 


12.1.1  The  Network  Service 


The  Network  Service  provides  for  the  transparent  data  transfer 
between  its  users. 
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1)  End-to-end  data  transfer: 

All  routing  and  relaying  functions  are  performed  by  the 
Network  Service  provider. 

Independent  of  underlying  transmission  media.  It 
relieves  the  users  from  all  concerns  regarding  how  data 
are  transferred  over  various  heterogeneous  subnetworks. 

Data  transparency.  Data  transferred  are  not  restricted 
for  the  content,  format,  coding,  structure,  or  meaning. 

2)  User  addressing.  It  utilizes  a  system  of  addressing  (NSAP 
addressing)  to  allow  users  to  refer  unambiguously  to  one 
another . 

3)  Quality  of  Service  Selection.  It  provides  the  users  with 
a  means  to  request  and  to  agree  the  quality  of  service, 
such  as 


throughput ; 
transit  delay; 

transfer  failure  probability;  and 
residual  error  rate  which  is  defined  as 


RER 


N ( lost )  +  N(error)  -  N(extra) 
N( total) 


where  N  is  the  number  of  packets. 


More  services  are  included  in  the  connection-mode  network 
service: 


1)  Network-connection  establishment  and  release; 

2)  Reset  to  predefined  state; 

3)  Flow  control; 

4)  Expedited  data  transfer; 


5)  More  quality  of  service  selection: 


Network-connection 
Network-connection 
Network-connection 
Network-connection 
Network-connection 
Network-connection 
Network-connection 
Maximum  acceptable 


establishment  delay; 
establishment  failure  probability; 
resilience; 
release  delay; 

release  failure  probability; 

protection; 

priority; 

cost . 
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12.1.2  Network  Service  Primitives 


Table  12.1  gives  a  summary  of  connection-mode  Network  Service 
primitives . 


12.2  NETWORK  PROTOCOL  SPECIFICATION  (IS  8473:  CONNECTIONLESS-MODE) 


The  protocol  specified  in  this  standard  provides  the 
connect  ionless -mode  Network  Service,  very  similar  to  the 
internetwork  datagram  service  provided  in  the  DDN  Internet 
Protocol  ( IP) . 


12.2.1  Underlying  Service  and  Functions 


Table  12.2  shows  the  Connect ionless -mode  Network  Service 
primitives  provided  by  this  protocol.  The  underlying 
connectionless-mode  service,  very  similar  to  the  service 
primitive  in  Table  12.2,  may  be  obtained  either  directly  from  a 
connectionless-mode  real  subnetwork  in  the  way  specified  in  this 
standard,  or  indirectly  through  the  Subnetwork  Dependent 
Convergence  Function  { SNDCF )  or  Protocol  (SNDCP)  over  a 
connection-mode  real  subnetwork,  as  described  in  DIS  8648, 
Internal  Organization  of  the  Network  Layer. 


The  types  of  functions  provided  by  this  protocol  are  summarized 
in  Table  12.3.  Type  1  functions  are  required  for  all 
implementation.  Type  2  and  3  functions  are  optional.  If  Type  2 
function  is  selected  in  a  PDU  but  not  implemented  locally,  then 
the  PDU  is  discarded,  and  an  Error  Report  PDU  is  generated  and 
forwarded  to  the  originating  network-entity.  If  Type  3  function 
is  selected  but  not  locally  implemented,  it  is  processed  just 
like  not  selected. 


12.2.2  PDU  Structure  Specification 


The  Protocol  Data  Unit  (PDU)  structure  specified  in  this  standard 
is  shown  in  Figure  12.1.  It  is  divided  into  four  parts:  the 
fixed  part,  the  address  part,  the  segmentation  part,  and  the 
options  part.  The  data  portion  follows  the  options  part. 


49 


Table  12.1  IS  8348:  Connection-mode  Network  Service  Primitives 
Phase  Service  Primitive 


NC  NC  N-CONNECT  request 

Establishment  Establishment  N-CONNECT  indication 

N-CONNECT  response 
N-CONNECT  confirm 


Data  Transfer  Data  Transfer  N-DATA  request 

N-DATA  indication 


Receipt-  N-DATA-ACKNOWLEDGE  request 

Confirmation*  N-DATA-ACKNOWLEDGE  indication 


Expedited  data  N-EXPEDITED-DATA  request 
transfer  *  N-EXPEDITED-DATA  indication 


Reset  N-RESET  request 

N-RESET  indication 
N-RESET  response 
N-RESET  confirm 


NC  Release  NC  Release  N-DISCONNECT  request 

N-DISCONNECT  indication 


*  Optional 


Table  12.2  DIS  8473:  Connectionless-mode  Network  Service  Primitives 
Primitive  Parameters 


N-UNITDATA. request  NS-source-address ,  NS-desti-address , 

N-UNITDATA. indication  NS-quality-of-service,  NS-userdata 
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Table  12.3  DIS  8473:  Connectionless-mode  Network  Service  Functions 


TyEQ^I: 


PDU  composition  and  decomposition; 

Header  format  analysis  and  PDU  header  error  detection; 
PDU  lifetime  control; 

Route  and  forward  PDU; 

Segmentation  and  reassembly; 

Discard  PDU; 

Error  reporting 


Type- 2 : 

Security; 

Complete  source  routing; 
Complete  route  recording 


Type-3 : 


Partial  record  routing; 
Partial  route  recording; 
Priority; 

QoS  maintenance; 
Congestion  notification; 
Padding 


Proto.ID 

Length 

Version 

Lifetime 

Ctii-Flags 

Segment  Length 

Checksum 

D— Adr  Len 

D— Adr_ 1 

D«Adr_  n 

S-Adr  Len 

S  _Adr_ ! 

S.Adr_n 

Data  Unit  ID 

Segment  Offset 

Total  Length 

Op-Code 

Op-Len 

Op_VaL.l 

• 

Op«Val_n 

Op_Code 

Op.Len 

Op_Val_l 

• 

Op_Val_n 

Data 

Fixed  Pari 

Address  Part 

Segmentation  Part, 
optional 

Options  Part,  optional 
Data  Part 


Figure  12.1  DIS  8473:  PDU  Structure 


0  12  3 


SP 

MS 

ER 

Type  Code 

Segmentation  ' 

Permitted - 

More  Segment - 

Error  Report  - : - 

Type  Code - 

Ex.  1  1  100  -  DT  PDU 
0000  1  *  ER  PDU 

Figure  12.2  DIS  8473:  Control  Flags 
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Network  Layer  Protocol  Identifier  (1  Octet): 

1000  0001:  Network  Layer  protocol  as  ISO  8473 
0000  0000:  Inactive  Network  Layer  protocol  subset 


Length  Indicator  (1  Octet):  The  length  in  octets  of  the 
header.  The  maximum  is  254. 


Version  (1  octet):  Value  0000  0001  is  for  this  version  of 
the  standard. 


PDU  Lifetime  (1  Octet):  The  remaining  lifetime  of  the  PDU, 
in  units  of  500  ms. 


Flags  (1  Octet):  The  flag  bits  are  defined  in  Figure  12.2. 


PDU  Segment  Length  (2  Octets):  The  entire  length  of  the  PDU 
in  octets. 


Checksum  (2  Octet):  It  is  computed  on  the  entire  header. 


Destination-Address  Length  (1  Octet) 

Source-Address  Length  (1  Octet):  The  length  of  following 
address  field  in  octets.  These  values  may  vary  according  to 
the  application. 


Destination/Source  Address:  These  are  the  addresses  defined 
in  ISO  8348/AD2.  The  lengths  of  the  field  are  variable,  as 
indicated  in  the  "Address  Length"  fields. 


Data  Unit  Identifier  (2  Octets):  Identifies  the  Initial  PDU 
( un-segmented)  and  all  the  Derived  PDU  contain  the  same  value. 


Segment  Offset  (2  Octets):  For  each  Derived  PDU,  it 

specifies  the  relative  position  of  the  data  segment  with 
respect  to  the  start  of  data  part  of  Initial  PDU. 


Total  Length  (2  Octets):  Specifies  the  total  length  of  the 
Initial  PDU  in  octets,  including  both  the  header  and  data. 


For  each  option,  it  includes  option-code,  option-length,  and 
option-value  three  fields. 
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Option  Code  (1  Octet):  It  specifies  different  options. 

Some  example  are  shown  in  Table  12.4. 


Table 

i  12.4 

Examples 

of  the  Options  in  DIS  8473 

m 

u 

ii 

n 

it 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

n 

ii 

ii 

ii 

ii 

n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ti 

ii 

ii 

ii 

ii 

n 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

ii 

Option-Code 

Length 

Value 

Description 

1100 

1100 

var 

any 

padding 

1100 

0011 

1 

* 

quality  of  service 

1100 

0101 

var 

* 

security 

1100 

1000 

var 

* 

source  routing 

1100 

1011 

var 

* 

record  route 

1100 

1100 

1 

0-0F 

priority 

Option  Length  ( 1 

Octet)  : 

Specifies 

the  length  of  option 

value  in  octets . 


Option  Value:  Contains  the  value  of  the  option  with  the 

length  as  indicated  in  the  option-length  field. 


Besides,  the  provision  of  the  underlying  service  from  the 
subnetwork  is  also  described  in  this  standard. 


13.  THE  TRANSPORT  LA.IfiB 


The  Transport  Layer  in  OSI  Reference  Model  provides  transparent 
data  transfer  between  its  users,  and  relieves  them  from  any 
concerns  with  the  details  for  the  reliable  and  cost  effective 
data  transfer.  It  optimizes  the  use  of  the  available  network 
service  to  provide  required  performance  at  minimum  cost.  The 
protocol  defined  at  this  layer  have  end-to-end  significance, 
between  correspondent  transport-entities.  Therefore  the 
transport  layer  in  OSI  is  end  system  oriented,  and  the  transport 
protocols  operate  only  between  OSI  end  systems. 


13.1  TRANSPORT  SERVICE  DEFINITION  (IS  8072) 


This  standard  defines  the  Transport  Services  in  the  OSI  Reference 
Model,  and  the  Transport  Service  primitives  with  associated  state 
transition . 
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13.1.1  Transport  Service  (TS) 


The  transport  service  provides  for  the  transparent,  reliable  data 
transfer  between  session  entities.  Transport  services  are: 

1}  Transport-Connection  (TC)  establishment  and  release  in  a 
synchronized  manner: 

The  Transport  Service  utilizes  an  addressing  system 
(TSAP)  to  allow  users  to  refer  unambiguously  to  one 
another . 

It  has  end-to-end  significance. 

User  can,  at  the  TC  establishment  time,  request, 
negotiate  and  agree  on  a  certain  quality  of  service 
(QoS). 

Reset  the  TC  to  predefined  state. 

2)  End-to-end  reliable  data  transfer: 

Data  transparency.  Data  transferred  are  not  restricted 
for  the  content,  format,  coding,  structure,  or  meaning. 

Flow  control. 


Expedited  data  transfer. 
3)  Quality  of  Service  Selection: 


TC  establishment  delay; 

TC  establishment  failure  probability; 

throughput; 

transit  delay; 

transfer  failure  probability;  and 
residual  error  rate  which  is  defined  as 


RER 


N(lost)  +  N(error)  -  N(extra) 
N( total) 


TC  resilience; 

TC  release  delay; 

TC  release  failure  probability; 
TC  protection; 

TC  priority. 


13.1.2  Transport  Service  Primitives 
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Table  13.1  gives  a  list  of  Transport  Service  (TS)  primitives  in 
different  phases.  The  allowed  sequence  of  TS  primitives  with  the 
state  transition  is  shown  in  Figure  13.1. 


13.2  TRANSPORT  PROTOCOL  SPECIFICATION  (IS  8073) 


This  standard  specifies  the  protocol  for  the  connection  oriented 
transport  services . 


13.2.1  Transport  Layer  Functions 


Generally  speaking,  the  transport  layer  should  provide  the  TS 
users  with  following  functions: 

1)  Assignment  of  the  transport  connections  to  network 
connections,  either  existing  one  or  newly  created  one,  with 
respect  to: 

Resynchronization 
Reassignment  after  failure 
Splitting  and  recombining 
Multiplexing  and  demultiplexing 

2)  Connection  establishment ,  with  the  respect  to: 

Connection  refusal 

3)  Transport  Protocol  Data  Unit  (TPDU)  transfer,  with  respect 
to : 

Data  TPDU  numbering 
Resequencing 

Retention  until  acknowledgement  of  TPDUs 
Retransmission  on  time-out 
Expedited  data  transfer 
Segmenting  and  reassembling 
Concatenation  and  separation 
Association  of  received  TPDUs  with  TC 
Treatment  of  protocol  errors 
Explicit  flow  control 
Checksum 

4)  Normal  release  of  TC,  with  the  respect  to: 

Frozen  references 
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Table  13.1  IS  8072:  Transport  Service  Primitives 


Phase 

Service 

Primitive 

TC 

Establishment 

TC 

Establishment 

T-CONNECT  request 

T-CONNECT  indication 

T-CONNECT  response 

T-CONNECT  confirm 

Data  Transfer 

Data  Transfer 

T-DATA  request 

T-DATA  indication 

Expedited  data 
transfer  * 

T-EXPEDITED-DATA  request 
T-EXPEDITED-DATA  indication 

TC  Release 
+ 

TC  Release 

T-DISCONNECT  request 

T-DISCONNECT  indication 

*  Optional 
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5)  Error  release,  with  the  respect  to: 


Inactivity  control 


13.2.2  Transport  Protocol  Classes 


The  IS  8073  standard  defines  five  classes  of  transport 
connections  with  different  level  of  functionalities.  It  is 
assumed  to  use  three  underlying  choices  of  network  connections: 

Type  A:  with  acceptable  residual  error  rate  and 

acceptable  rate  of  signaled  errors; 

Type  B:  with  acceptable  residual  error  rate  but 

unacceptable  rate  of  signaled  errors; 

Type  C:  with  unacceptable  residual  error  rate. 


Five  classes  of  transport  connections  are  specified  based  on 
on  three  classes  of  network  connections: 


Class  0:  simple  class 

-  the  simplest  type  transport  connection, 

-  compatible  with  CCITT  t!70  for  teletex 
terminal , 

-  use  type  A  network  connections; 


Class  1:  basic  error  recovery  class 

-  basic  transport  connection  with  recovery 
from  network  disconnect  or  reset, 

-  use  type  B  network  connections; 

Class  2:  multiplexing  class 

-  multiplexing  several  transport  connections 
onto  a  single  network  connection,  with/out 
explicit  flow  control, 

-  use  type  A  network  connections; 


Class  3:  error  recovery  and  multiplexing  class 

-  characteristics  of  class  2,  plus  recovery 
from  network  disconnect  or  reset, 

-  use  type  B  network  connections; 


Class  4:  error  detection  and  recovery  class 

-  characteristics  of  class  3,  plus  detection 
and  recovery  from  errors  of  low  grade 
service, 

-  use  type  C  network  connections. 
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The  use  of  classes,  as  well  as  options  for  those  functions  within 
classes,  is  negotiated  during  connection  establishment. 


13.2.3  TPDU  Structure  Specification 
13.2.3.1  TPDU  General  Structure 

The  structure  of  the  Transport  Protocol  Data  Units  (TPDUs)  can  be 
divided  into  four  parts,  as  shown  in  Figure  13.2. 

Length  Indicate  (LI,  1  Octet):  The  length  of  the  header  in 
octets. 


Fixed  Part:  Contains  frequently  occurring  parameters,  such 
TPDU  code,  etc.  The  format  and  the  structure  of  this  part 
is  different  for  different  TPDU. 


Variable  Part:  Contains  less  frequently  used  information. 
It  has  the  structure  as  described  in  Figure  13.3. 


Following  section  will  explain  some  of  the  TPDU  structures  and 
field  definitions  as  examples. 


13.2.3.2  Connection  Request  (CR)  and  Connection  Confirm  (CC) 


The  structures  of  the  Connection  Request  (CR)  and  the  Connection 
Confirm  (CC)  TPDUs  are  shown  in  Figure  13.4. 


CDT  —  Initial  credit  allocation,  0000  for  Class  0,1 

DST-REF  —  Reference  for  the  Destination  transport  entity, 

zero  for  CR  TPDU 


SRC-REF  --  Reference  for  Source  (initiating)  transport 

entity 

CLASS  --  Bit  8-5  (left)  defines  the  preferred  class; 

Bit  2  indicates  the  "Extended  Format"; 

Bit  1  indicates  no  use  of  explicit  flow  control 
in  class  2 
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i 

2 

3  4 

6  6 

7 

8  p 

p  +  1  end 

u 

_ 

CR  COT 
1110 

OST-REF 

0000  OOUO  0000  oooo 

1 

SRC  REF 

1 

CLASS 

OPTION 

Vo  liable 
part 

User 

data 

1  2  J  4  S  S  7  8  p  i>  t  I  end 


— 

u 

warn* 

WmM 

i 

OST-REF 

_ 1 _ 

ca 

CLASS 

OPTION 

Variable 

pj.e 

User 

data 

*  Figure  13.4  structure  of  Connection  Request (CR) /Confirm (CC)  TPDUs 


i 

2 

3  4 

5  6 

7 

8  P 

p  ♦  1  end 

u 

OH  / 
1000 , 0000 

- f - 

OST-REF 

1 

REASON 

Varinbia 

part 

Ustrr 
,  dais 

1  2  3  4  5  6  7 


■HI 

Figure  13.5  Structure  of  Disconnection  Request (DR) /Confirm (DC)  TPDUs 


34  5  Op  p  ♦  1  ...  oikI 


u 

or 

tut  |  oooo 

1 

OST-REF 

_ 1 _ 

TPDU-NR 
•nd  EOT 

VoiinblP 

part 

Osar  data 

1 

2  3  4  5,  8,  7.  8  9  P  p  ♦  1  ...  end 

tl 

0T 

1111  oooo 

ntBUBi 

fR-Ssll 

TPOU-NR 
end  EOT 

Vfrinblt 

part 

User  dal* 

Pi  mire  13.6  The  Structure  of  Data  (DT)  TPDU 


13.2.3.3  Disconnection  Request  (DR)  and  Disconnection  Confirm  (DC) 


The  structures  of  the  Disconnection  Request  (DR)  and 
Disconnection  Confirm  (DC)  are  shown  in  Figure  13.5. 


REASON  --  It  defines  the  reason  for  disconnecting  the 

transport  connection 


13.2.3.4  Data  (DT) 

The  structure  of  Data  (DT)  TPDUs  are  shown  in  Figure  13.6. 

TPDU-NR  —  TPDU  Sequence  number 

EOT  —  The  end  of  TPDU 

The  second  structure  shown  in  the  figure  has  an  extended  format 
in  YR-TU-NR. 


13.2.3.5  Acknowledge  (AK) 


The  structure  of  Acknowledge  (AK)  TPDU  is  shown  in  Figure  13.7. 


YR-TU-NR  —  The  sequence  number  of  next  expected  DT  TPDU. 


13.2.3.6  Expedited  Data  (ED)  and  Expedited  Acknowledge  (EA) 


The  structures  of  Expedited  Data  (ED)  and  Expedited  Acknowledge 
(EA)  are  shown  in  Figure  13.8.  ED  and  EA  have  very  similar 
structure  compared  to  the  one  of  DT  and  AK. 
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13.2.3.7  Reject  (RJ)  and  Error  (ER) 


The  structures  of  Reject  (RJ)  and  Error  (ER)  TPDUs  are  shown  in 
Figure  13.9.  The  structure  for  Reject  is  straight  forward.  The 
"Reject  Cause"  in  the  Error  TPDU  gives  an  explanation  of  the 
reason  for  the  error  condition. 


13.2.4  TC  State  Transition 


Since  the  transport  protocol  defined  in  this  standard  is 
connection  oriented,  the  state  transition  specified  here  also 
includes  the  part  that  deals  with  the  network  connections.  The 
complete  state  transition  is  so  complicated  that  it  has  to  be 
explained  in  a  state  table,  not  in  a  graphic  format.  On  the 
other  hand,  in  our  case,  the  connectionless-mode  network  services 
are  used  instead  of  connection-mode,  and  the  state  transition 
for  the  transport  protocol  is  simpler.  This  will  be  described  in 
next  section. 


14.  THE.  SESSION  LAYER 


The  reason  for  the  Session  Layer  to  be  briefly  described  in  this 
section  is  the  incompatibility  between  the  DDN  TCP  and  ISO  TP 
protocols.  In  the  OSI  Reference  Model,  the  Session  Layer 
provides  necessary  services  for  their  users  to  organize  their 
dialogue  and  to  manage  their  data  exchange.  It  takes  full  care 
of  the  session-connection  establishment  and  release  in  a 
synchronized  manner.  So  the  Transport  Layer  does  not  repeat  the 
function  for  the  synchronized  release  of  transport  connection. 
On  the  other  hand,  in  the  DDN  Internet  architecture,  there  is  no 
explicit  session  layer,  TCP  is  taking  the  full  charge  for  the 
transport  connection  establishment  and  release  in  the 
synchronized  manner.  If  the  TCP  user  at  one  side  issues  the 
CLOSE  command  to  disconnect  the  TCP  connection,  the  TCP  user  at 
the  remote  side  is  notified,  the  data  exchange  may  be  continued 
until  the  remote  TCP  user  issues  a  CLOSE  command.  Both  side  of 
TCP  connection  are  well-synchronized  in  this  method.  To  match 
the  services  and  functions  between  DDN  TCP  and  ISO  TP,  the  normal 
connection  release  function  from  the  Session  Layer  are  examined 
here. 


14.1  SESSION  LAYER  SERVICES 
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The  Session  Layer  provides  the  services  necessary  for  co¬ 
operating  presentation-entities  to  organize  and  synchronize  their 
dialogue  and  to  manage  their  data  exchange. 

1)  establishment  and  release  of  session-connection  mapped  onto 
the  transport-connection; 

2)  session-connection  synchronization; 

3)  normal  data  exchange; 

4)  expedited  data  exchange  which  is  free  from  token  and  flow 
control  constraints; 

5)  quarantine  service  by  which  an  integral  number  of  session- 
service-data-uni ts  sent  on  a  session-connection  are  not 
available  to  the  receiving  presentation-entity  until 
explicitly  released  by  the  sending  presentation-entity; 

6)  interaction  management,  to  allow 

a)  two-way-simultaneous  (TWS); 

b)  two-way-alternate  (TWA);  and 

c)  one-way  interaction. 

7)  exception  reporting. 


To  support  the  services,  following  functions  are  performed  within 
the  Session  Layer: 

1)  session-connection  to  transport-connection  mapping; 

2)  session-connection  flow  control; 

3)  expedited  data  transfer; 

4)  session-connection  recovery; 

5)  session-connection  release;  and 

6)  Session  Layer  management. 

14.2  SESSION  SERVICE  PRIMITIVES 


Table  14.1  gives  a  list  of  Session  Service  primitives. 


The  Session  Service  primitives  for  the  Session  connection  release 
will  be  further  discussed  in  the  transport  gateway  design. 
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Table  14 . 1  Session  Service  Primitives 
Service  Primitive 


Session  Connection  Establishment  Phase: 

Session-connection  S-CONNECT  request/ indication/response/confirm 


Data  Transfer  Phase: 

Normal  data  xfer 
Expedited  data  xfer 
Typed  data  xfer 
Capability  data 
Give  tokens 
Please  token 
Give  control 
Minor  sync-point 
Major  sync-point 
Resynchronize 
P-exception  report 
U-exception  report 
Activity  start 
Activity  resume 
Activity  interrupt 
Activity  discard 
Activity  end 


S-DATA  request/indication 
S-EXPEDITED-DATA  request/ indication 
S-TYPED-DATA  request/indication 
S -CAPABILITY- DATA  req/indi /response/confirm 
S-TOKEN-GIVE  request/ indication 
S-TOKEN-PLEASE  request /indicat ion 
S-CONTROL-GIVE  request/ indication 
S -SYNC -MINOR  req/ indi /response /Con firm 
S-SYNC-MAJOR  req/ indi/response/conf irm 
S-RESYNCHRONIZE  req/ indi/response/conf irm 
S- P-EXCEPTION- REPORT  indication 
S-U-EXCEPTION-REPORT  request / indication 
S -ACTIVITY - START  request/ indication 
S -ACTIVITY-RESUME  request/ indication 
S-ACTIVITY- INTERRUPT  req/indi/response/conf irm 
S -ACTIVITY-DISCARD  req / indi/response/conf irm 
S-ACTIVITY-END  req/ indi / response /confirm 


Session 


RQlsag.a  Phase: 


Orderly  release  S-RELEASE  req/indi/response/conf irm 

U-abort  S-U-ABORT  request/indication 

P-abort  S-P-ABORT  indication 
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14.3  ISO  STANDARDS  FOR  THE  SESSION  LAYER 


The  ISO  8326  standard  is  for  the  basic  connection  oriented 
session  service  definition. 


The  session  services  defined  in  this  standard  are  performed  by 
ISO  8327  standard:  the  Basic  Connection  Oriented  Session 
Protocol.  The  session  protocol  is  specified  with  respect  to: 

1)  use  of  the  transport  service; 

2)  procedure  elements  related  to  Session  Protocol  Data 
Units  ( SPDU ) ; 

3>  structure  and  encoding  of  SPDUs . 


t 
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£MTIL  PROTOCOL  CONVERSION  FROM  TCP  TQ  ISO-TP 


Based  on  the  summary  over  the  DDN  TCP/IP  protocols  and  the 
ISO/OSI  protocols  given  in  previous  two  chapters,  this  section 
will  give  further  discussion  over  the  matter  of  matches  and 
mismatches  between  the  two  protocol  suites.  The  functionalities 
are  studied  for  the  protocol  conversion  tasks  between  TCP  and 
ISO-TP.  The  methodology  approaches  with  the  protocol  conversion 
are  discussed.  The  rule-based  general  protocol  conversion  at  the 
transport /network  layer  is  concluded  from  the  discussion. 


For  the  gateway  system  design,  the  protocol  conversion  tasks  are 
divided  into  subtasks,  implemented  by  modules.  The  gateway 
specification  is  carefully  developed  with  regards  to  easiness  of 
understanding,  and  avoiding  over-specification  with  unnecessary 
details.  The  specification  is  developed  using  a  formal 
specification  language,  called  ESTELLE. 


15.  INCOMPATIBILITY  CONCERNS 


The  discussions  in  this  chapter  are  concentrated  on  the  different 
aspects  of  the  incompatibilities,  the  comparison  of  the  service 
provided,  and  the  study  of  each  incompatible  items  between  TCP 
and  ISO-TP.  The  incompatibilities  between  the  IP  and  the  ISO-IP 
are  not  studied  here.  The  handling  of  the  incompatibilities 
between  IP  and  ISO-IP  can  be  described  as  one  to  one  static  PDU 
translations,  which  will  be  discussed  in  the  design. 


15.1  DIFFERENT  ASPECTS  OF  THE  INCOMPATIBILITIES 


From  the  view  point  of  the  functionalities,  comparing  the 
functions  of  TCP  described  in  the  beginning  of  the  section  10  and 
the  functions  of  ISO-TP  described  in  Section  13.2.1,  both  of  them 
provide  very  similar  services.  This  condition  is  important 
because  it  implies  that  hard  mismatches  which  could  render 
gateway  system  inoperable  to  not  exist. 


From  the  view  point  of  the  Protocol  Data  Unit  (PDU)  structure, 
they  are  similar  with  suitable  differences.  Translation  of  PDUs 
is  needed  in  the  gateway.  But  this  translation  can  be  viewed 
mainly  as  a  protocol-dependent  part  of  the  gateway  task.  It 
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implies  that  those  fields  in  the  PDU  related  only  to  one 
particular  protocol  should  be  handled  by  the  protocol-dependent 
submodule.  One  example  is  that  the  checksum  field  for  different 
protocols  can  be  processed  separately.  On  the  other  hand,  those 
fields  in  the  PDU  which  have  the  common  meaning  for  both  gateway 
protocols  but  with  different  format  should  be  translated 
cooperatively  by  the  protocol-dependent  and  protocol-independent 
submodules.  Examples  of  the  operation  codes  and  the  control 
flags  should  be  interpreted  in  this  way. 


From  the  view  point  of  the  interfaces  between  protocol  layer  and 
the  service  user,  it  has  no  significance  here  because  the  service 
user  is  not  considered  here.  One  example  to  explain  this  point 
is  that  the  transport  gateway  considers  only  the  interoperability 
between  transport  protocols,  not  the  interface  to  the  transport 
service  user.  The  same  kind  of  upper  layer  protocol  is  assumed 
in  the  case.  The  interface  design  in  this  gateway  will  be  aimed 
on  the  interfaces  between  the  submodules. 


From  the  view  point  of  the  internal  state  transition  and  the  peer 
entity  interaction,  conversion  is  a  more  complicated  matter.  One 
example  is  that  ISO-TP  allows  the  Connection  Request  TPDU  to 
carry  user's  data,  while  DDN  TCP  does  not  support  this  option. 
There  is  no  one-to-one  translation  to  resolve  the  difference. 
There  is  no  method  to  attack  this  problem.  It  can  be  simply 
handled  by  restricting  ISO-TP  user  to  use  the  option  to  emphasize 
the  usage  of  common-subset  functions,  as  proposed  in  [GROEN  86]. 
The  problem  can  also  be  solved  in  a  more  complicated  way  to  have 
the  gateway  to  take  more  responsibilities.  More  studies  are 
needed  in  attacking  this  kind  of  problem. 


15 . 2  SERVICE  COMPARISON 


To  be  prepared  for  the  methodology  discussion  for  the  protocol 
conversion,  the  comparison  between  the  TCP  and  the  ISO-TP  is 
summarized  in  the  Table  15.1.  Further  technical  detail  about 
those  difference  will  be  studied  in  following  sections. 


15.3  CONVERSION  TASKS  IN  CONSIDERATION 


In  this  section,  the  conversion  tasks  and  the  methods  used  for 
the  protocol  conversion  will  be  discussed  item  by  item.  Each 
item  represents  an  entry  of  incompatibility  between  TCP  and  ISO- 
TP  as  listed  in  Table  15.1. 
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Table  15. 

1  Service  Comparison  between  TCP  and  ISO-TP 

Function/Event 

ISO-TP 

TCP 

TC  Establish  Phase: 

Connect 

collision 

Two  TC  established 
(one  way) 

One  TC  established  for 
given  pair  of  socket 

Addressing 

Any  possible  structure 

Static  length 

Expedited  data 

Yes,  negotiable  by  user 

No,  has  URGENT  signal 

QoS 

Loosely  defined, 
multifunctional 

well-defined  subset  of  ISO 

User  data 

Limited  length 

No 

Data  Transfer 

Phase: 

User  data 

Octet  stream 

Octet  stream,  may  be  divided 
into  TSDUs  using  PUSH 

Urgent  Signal 

No 

Yes 

Expedited  data 

Precedence  over  normal 
data 

No 

Flow  control 

Explicit  or  implicit 

Explicit 

RfelSW  Phase: 

Orderly  release  No 

Yes 

Abrupt  release 

Yes 

Yes 
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15.3.1  TC  Establish  Phase 


Connection  Collision.  In  TCP,  if  the  TC  initiator,  after  sending 
the  Connection  Request  (CR)  to  a  destination  host,  receives  a  CR 
from  the  destination  host,  only  one  connection  is  going  to  be 
established,  and  both  hosts  share  the  connection  in  the 
communication.  On  the  other  hand,  ISO-TP  will  try  to  establish 
two  one-way  connections. 


In  matching  the  difference,  some  researchers  suggests  that  the 
ISO-TP  addresses  should  be  grouped,  such  as  into  even  and  odd 
addresses,  for  the  outgoing  and  incoming  calls.  As  far  as  we  are 
concerned,  it  is  not  good  idea  to  impose  this  kind  of  restriction 
on  the  addressing  scheme.  First,  by  examining  the  TCP/ IP 
addressing  scheme  and  the  predefined  TCP  port  addresses,  it  is 
obvious  that  most  of  the  ports  are  defined  as  passive  servers  for 
various  applications.  It  means  that  it  is  not  likely  to  have  a 
high  probability  for  the  connection  collision.  This  should  be 
true  for  the  ISO-TP  case.  Secondly,  if  the  ISO-TP  host  is  the 
first  CR  initiator  while  the  TCP  host  initiates  the  colliding  CR, 
it  can  be  absorbed  by  the  gateway  submodule  at  the  TCP  side 
without  notifying  the  ISO-TP  side.  If  the  ISO-TP  host  initiates 
the  colliding  CR,  the  ISO-TP  host  must  explicitly  provide  the 
calling  address  within  ISO-TP  addressing  allowance.  With  this 
method,  the  connection  collision  can  be  solved  by  special 
functions  in  the  gateway  submodules. 


Addressing.  TCP  allows  only  static  length,  fixed  format  port 
addresses,  while  ISO-TP  allows  any  possible  structures  to  be  used 
in  the  addressing  scheme.  To  resolve  the  incompatibility, 
restrictions  have  to  be  imposed  on  the  ISO-TP  users  that  only 
TCP-compatible  addressing  formats  are  allowed  while  calling  TCP 
users .  This  requirement  should  be  reasonable  because  whether  the 
ISO-TP  user  is  calling  TCP  host  or  calling  through  TCP  node,  the 
TCP  address  has  to  be  used,  either  by  calling  (TP)  user  or 
translated  by  the  gateway. 


Expedited  Data.  ISO-TP  provides  services  for  transferring 
expedited  data,  negotiated  at  the  beginning  of  connection 
establishment  between  users  by  selecting  different  Transport 
Service  classes.  TCP  does  not  support  the  expedited  data 

transferring,  but  it  has  URGENT  signal  used  for  transferring 
URGENT  data.  This  difference  will  be  discussed  as  one  of  the 
points  in  the  data  transfer  phase. 


Quality  of  Service.  Quality  of  Service  (QoS)  is  loosely  defined 
by  multifunctional  control  parameters  in  ISO-TP.  In  TCP,  it  is 
a  well-defined  subset  of  ISO  QoS.  For  the  same  reason, 
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restrictions  will  be  imposed  on  the  ISO-TP  users  to  use  only 
those  QoS  compatible  with  the  TCP  QoS. 


User  Data.  In  the  ISO-TP,  user  data  can  be  contained  in  the 
Connection  Request  TPDU  with  limited  length.  But  it  is  not 
allowed  in  the  TCP  in  Connection  Request.  This  incompatibility 
will  cause  problems  if  the  TPDU-to-TPDU  translation  technique  is 
used  in  the  gateways.  In  the  other  case,  if  TPDU-to-TPDU 
translations  not  used,  a  gateway  submodule  can  separate  the  user 
data  from  the  CR  TPDU,  store  the  data  temporally,  and  compose 
special  data  TPDUs  to  transfer  them  after  the  connection  is 
established . 


15.3.2  Data  Transfer  Phase 


User  Data.  Basically,  both  TCP  and  ISO-TP  transfer  user  data  as 
octet  streams.  In  TCP,  user  data  may  be  divided  into  segments  by 
using  PUSH  signal.  It  is  very  similar  to  the  concatenation 
function  of  the  ISO  Transport  Layer. 


Expedited  data.  ISO-TP  provides  the  user  the  service  to  transfer 
expedited  data,  with  precedence  over  normal  data.  TCP  does  not 
provide  service,  but  it  allows  a  user  to  use  the  URGENT  signal  to 
send  urgent  data.  Basically,  they  are  different  because  URGENT 
data  in  TCP  allows  the  transfer  of  control  information  along  with 
the  user  data,  with  or  without  higher  priority,  depending  on  the 
interpretation  of  the  higher  layers.  The  expedited  data  in  ISO- 
TP  is  a  measure  to  assure  the  correctness  of  the  data  transfer. 
It  is  possible  to  use  the  URGENT  data  of  TCP  network  for  the 
Expedited  Data  service  from  the  ISO-TP  network  in  the  following 
manner.  When  the  gateway  submodule  receives  the  Expedited  Data 
from  the  ISO-TP  host,  it  will  add  a  predefined  special  segment  of 
URGENT  data  to  the  TCP  TPDU  to  be  transferred  to  the  destination 
TCP  host.  A  Special  interface  at  the  destination  host  will  pick 
up  the  message  in  the  URGENT  data  part  of  the  TPDU,  and  convey  it 
to  be  the  Expedited  Data  before  sending  it  to  the  higher  layer 
ISO  software.  It  can  be  considered  in  the  same  way  if  the  DDN 
application  package  runs  in  the  ISO  network. 


Flow  control.  In  TCP,  the  flow  control  is  explicit.  While  in 
the  ISO-TP,  the  flow  control  could  be  explicit  or  implicit. 
There  are  two  ways  to  solve  the  problem:  restrict  the  ISO-TP 
users  to  use  explicit  flow  control  only;  or  absorb  the  implicit 
flow  control  at  the  gateway  submodule. 


15.3.3  TC  Release  Phase 
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Orderly  release.  TCP  provides  the  service  for  the  orderly 
release  of  the  connection.  If  the  user  at  one  end  sends  a  CLOSE 
to  close  the  connection,  the  TCP  at  the  other  end  will  notify  the 
user,  continue  with  data  transfer  if  necessary,  wait  for  the  user 
to  issue  the  CLOSE,  and  then  close  the  connection.  In  ISO 
standard,  the  orderly  release  is  considered  a  task  for  the 
session  layer  protocol.  So  the  ISO-TP  does  not  support  the 
orderly  release  function.  One  of  the  approaches  to  solve  the 
problem  is  to  add  a  sublayer  above  the  ISO-TP  to  include  the 
orderly  release  the  connection.  Another  approach  is  to  resolve 
the  incompatibility  in  the  gateway  submodule.  If  the  TCP  host 
issues  the  CLOSE  request,  the  gateway  will  produce  a  Disconnect 
Request  to  the  ISO-TP  host,  and  continue  the  orderly  release  with 
the  TCP  host  as  if  the  orderly  release  has  been  done  with  the 
ISO-TP  host.  The  ISO  upper  layers  using  the  TCP  service  should 
be  clear  about  this  difference,  and  the  Orderly  Release  is  still 
required  at  the  Session  Layer  in  order  to  call  the  ISO  host.  The 
Orderly  Release  at  the  Transport  Layer  will  be  performed  after 
the  Session  Layer  has  performed  the  Orderly  Release  and  called 
the  Transport  Layer  for  the  CLOSE. 


16.  CONVERSION  METHODOLOGY 


This  section  describes  approaches  for  protocol  conversion  between 
TCP  and  ISO-TP.  Each  method  has  its  merits  and  disadvantages, 
related  to  cost  and  performance. 


16.1  CONVERSION  TASKS  IN  GENERAL 


For  the  purpose  of  protocol  definition  and  specification, 
protocols  are  usually  defined  in  terms  of  functional 
descriptions,  procedural  descriptions  (operational  model), 
structural  descriptions  (PDU  structure),  and  interface 
descriptions . 


For  the  purpose  of  protocol  conversion  analysis,  the  protocol 
machine  can  be  divided  into  three  functioning  modules:  interface, 
peer,  and  control  protocols.  The  interface  protocol  takes  care 
of  interaction  between  the  layer  protocol  with  service  users  and 
underlying  layer  protocol  support.  The  peer  protocol  is  in 
charge  of  interaction  between  the  local  and  remote  peer  entities 
at  the  same  layer.  The  control  protocol  manages  the  internal 
state  transition  of  the  protocol  machine.  Accordingly,  the 
protocol  conversion  tasks  are  studied  with  respect  to  these  three 
aspects.  The  interface  to  the  service  user  is  of  no  importance 
here  because  the  assumption  that  the  upper  layer  protocols  above 
this  converted  layer  are  the  same.  There  should  be  no  change 
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made  in  the  interface  to  the  underlying  supporting  protocol. 


The  peer  protocol  conversion  includes  the  protocol  data  unit 
translation.  For  those  data  fields  which  is  only  related  to  one 
side  protocol  in  the  conversion,  they  should  be  processed  locally 
to  that  protocol.  Other  data  fields  also  need  to  be  translated 
in  certain  strategies.  The  control  protocol  conversion  is  of 
much  more  complicated  matter  which  will  be  discussed  in  more 
details  later. 


16.2  DIRECT  CONVERSIONS 


In  the  first  serious  attack  of  the  protocol  conversion  problem  at 
the  transport  layer  between  DDN  TCP  and  ISO-TP  was  reported  by 
Groenbraek  in  [GROEN  86].  In  this  treatise,  the  direct  conversion 
method  is  used.  Based  on  the  study  of  the  protocol  differences, 
a  state-to-state ,  PDU-to-PDU  conversion  method  is  used.  The 
advantage  of  this  approach  is  that  the  conversion  procedure  looks 
straight  forward.  It  contains  the  direct  conversion  of  all  states 
from  one  protocol  to  another.  However,  this  approach  imposes 
disadvantages  on  the  implementation. 

1)  Unnecessary  repetition  of  similar  details; 

2)  No  consideration  to  the  extension  of  this  work  to  other 
protocols ; 

3)  Imposes  heavy  restrictions  upon  users  which  results  in  a 
critical  drawback  to  performance.  This  point  will  be 
further  discussed  below. 


16.3  RESTRICT ION-UPON-USER  APPROACH 


This  approach  has  been  discussed  in  several  papers  in  [GREEN  86], 
[GROEN  86],  etc.  It  was  recognized  in  these  papers  that  the 
first  step  in  the  protocol  conversion  is  to  find  common  set  of 
the  services,  and  then  convert  the  functions  related  to  these 
services.  The  principle  behind  this  approach  is  obvious.  The 
conversion  is  performed  between  the  services  of  the  users. 


This  approach  imposes  two  serious  disadvantages.  One  of  them  is 
the  restriction  upon  users.  By  the  conversion  only  over  the 
common  set  of  the  services,  it  restricts  the  users  from  using 
those  services  which  are  not  in  the  common  set  of  services. 
Since  it  is  impractical  to  modify  the  communication  software  at 
upper  layers  on  all  the  hosts,  it  puts  the  burden  on  those  users 
using  the  service  through  gateways.  Another  disadvantage  is  that 


72 


this  approach  does  not  consider  those  mismatches  which  need  more 
intelligence  to  be  solved.  Some  examples  will  be  given  in 
following  section,  and  further  discussion  will  be  given  in  next 
chapter. 


16.4  RULE-BASED  METHOD 


In  this  approach,  those  services  with  minor  incompatibility 
problems  will  be  solved  with  a  little  more  intelligence  in  the 
gateway  system.  For  example,  TCP  does  not  allow  the  Connection 
Request  (CR)  TPDU  to  carry  any  user  data.  In  case  that  user  data 
are  contained  in  the  Connection  Request  TPDU  from  ISO-TP,  instead 
of  not  allowing  user  to  do  that,  the  gateway  can  divide  CR  into 
Connection  Request  TPDU  and  the  Data  TPDU  for  the  TCP  network. 
The  reasonability  for  this  approach  is  on  the  TCP  side  and  the 
ISO-TP  side  must  keep  their  own  Sequence  Number.  In  this  way, 
extra  data  TPDU  will  not  disturb  the  normal  operation.  The 
acknowledgement  for  the  extra  data  TPDU  will  be  consumed  at  the 
gateway  because  it  does  not  need  to  be  sent  to  the  ISO-TP 
network.  The  gateway  needs  to  keep  record  of  the  extra  TPDUs  it 
creates . 


Another  example  is  the  PUSH  function  in  TCP.  The  PUSH  function 
in  TCP  means  that  when  a  user  indicates  the  PUSH  flag  in  the  SEND 
data  call,  the  TCP  module  should  not  wait  for  further  user  data 
to  be  concatenated  for  efficiency,  but  rather  send  the  user  data 
right  away.  This  function  requests  only  immediate  delivery  of 
the  user  data.  It  can  be  handled  by  either  ignoring  the  PUSH 
flag  and  sacrificing  a  little  performance,  or  by  using  other 
control  functions  such  as  Expedited  Data  in  the  ISO-TP  network. 
The  rule-based  method  can  be  approached  so  that  the  knowledge 
about  the  characteristics  of  the  service  and  the  knowledge  about 
the  way  to  make  up  the  difference  and  to  solve  the 
incompatibility  are  used  in  handling  different  service  functions. 


16.5  MODULAR  SYSTEM  DESIGN 


With  the  consideration  discussed  in  the  last  section,  the  gateway 
system  design  should  take  the  modular  system  design  approach. 
The  major  point  is  to  divide  the  gateway  system  into  three  parts: 
the  protocol -dependent  modules,  the  general  purpose  linker 
module,  and  the  interface  modules  to  connect  them  together.  The 
superset  of  the  service  provided  by  different  transport 
protocols,  instead  of  subset  of  common  service,  should  be 
considered.  The  results  then  are  used  tor  designing  the  data 
and  control  structures  in  the  general  purpose  linker  module.  The 
rule-based  tasks  will  t*  handled  in  the  interface  module  to 
resolve  the  difference  between  the  general  purpose  linker  module 
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and  the  protocol-dependent  modules.  The  details  of  the  design 
will  be  explained  in  the  following  sections.  A  similar  approach 
was  followed  in  the  testing  of  functional  specifications  of  a 
generic  gateway  [MART  88]. 


17.  FUNCTIONAL  MODULES 


In  this  chapter,  the  modular  structure  of  the  gateway  system  to 
interconnect  the  TCP/IP  and  the  ISO/TP  is  discussed.  The 
functions  of  each  module  are  described  based  on  the  system 
design . 


17.1  THE  MODELS  OF  THE  PROTOCOL  CONVERSION 


This  section  contains  the  models  for  protocol  conversion.  The 
two  models  used  include  the  Message  Translation  Model  and  the 
State  Translation  Model. 


17.1.1  The  Message  Translation  Model 


The  Message  Translation  Model  is  shown  in  Figure  17.1.  This 
model  deals  with  the  message  translation,  which  corresponds  to 
the  handling  of  the  PDU  subprotocol  and  the  interface 
subprotocol.  The  handling  of  the  PDU  subprotocol  is  obvious  in 
this  case.  All  the  PDUs  from  the  local  network,  say  P',  are 
temporary  stored  in  the  packet  buffer,  and  processed  in  the 
local-network  interface  module  to  check  the  validity.  The  local- 
protocol  dependent  parts  of  P'  are  stripped  off  and  the  original 
PDU  P'  are  translated  into  P,  depending  on  the  design.  Examples 
are  the  correctness  of  the  checksum,  the  validity  of  the  address, 
the  sequence  numbers  and  window  parameters,  and  the  legitimacy  of 
the  packet  control  commands  with  regard  to  the  FSM  state  in  the 
protocol  module.  A  record  of  the  connection  control  information 
of  local-protocol  dependent  parts  will  be  kept  in  the  local 
interface  module.  The  data  and  the  control  information  with 
common  interests  will  be  passed  over  to  the  linker  module,  where 
the  control  information  is  kept  for  reference  for  follow-on 
communications.  The  data  and  the  necessary  control  information, 
in  the  format  of  P,  will  be  then  relayed  to  the  remote  interface 
module.  In  the  remote  interface  module,  similar  work  in  the 
local  module  will  be  reversed  to  make  up  the  PDU"  from  P,  by 
adding  in  the  protocol  dependent  control  information.  The  PDU  P" 
will  then  be  sent  through  the  service  provided  by  the  underlying 
layer  to  the  remote  network.  Whether  the  packet  will  be  kept  in 
the  buffer  or  not  until  acknowledgment  is  received  is  completely 
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Figure  17.1  The  Model  of  Message  Translation  in  Gateway- 
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Figure  17.2  The  Model  of  State  Conversion  in  Gateway 


dependent  on  the  gateway  strategy. 


The  handling  of  the  interface  subprotocol  is  done  in  the  process 
of  the  communication.  The  interface  subprotocol  keeps  the 
interface  compatibility  between  this  layer  and  the  underlying 
layer.  The  interfaces  between  the  local  module  and  the  linker 
and  remote  modules  are  implementation  dependent.  Though,  the 
integrity  of  the  service  interface  between  this  layer  and  the 
upper  layer  should  still  kept  in  consideration. 


17.1.2  The  State  Conversion  Model 


Another  model  of  the  gateway  task  is  shown  in  Figure  17.2.  This 
model  deals  with  the  state  conversion,  which  corresponds  to  the 
handling  of  the  internal  state  transitions  artd  the  peer  entity 
interaction . 


The  local  and  remote  protocol-dependent  modules  in  this  model 
plays  two  major  functions.  One  function  is  to  maintain  the 
internal  state  transitions  as  defined  by  its  own  protocol.  The 
other  function  is  to  convert  the  state  defined  in  the  local 
protocol  into  the  common  state  handled  by  the  linker  module,  and 
vice  versa.  The  set  of  common  states  is  the  super  set  of  all 
states  in  the  protocols.  The  linker  module  in  this  model  is 
merely  an  interface,  it  defines  the  super  set  of  the  common 
state.  It  records  the  state  of  each  communication  channel  during 
its  operation  using  this  super  set  of  state.  Since  each  set  of 
states  of  individual  protocol  is  the  subset  of  the  common  state 
set,  the  difference  between  individual  subset  and  the  common  set 
is  made  up  of  protocol-dependent  modules.  If  there  exists  a  one- 
to-one  relationship  between  the  pair  of  local  protocol  states  and 
the  common  states,  only  the  name  translation  is  needed.  If  there 
is  no  such  one-to-one  relationship  between  the  pair  of  states, 
the  protocol -dependent  module  will  be  in  charge  of  the 
translation  between  the  subset  states  and  the  common  set  states. 
All  these  state  processing  should  be  confirmed  with  the  peer 
entity  interaction  specification  of  the  local  protocol  with 
respect  to  the  local  network. 


17.2  SYSTEM  STRUCTURE 


In  this  section,  the  gateway  layer  and  the  system  designs  are 
discussed  based  on  the  basic  models  described  above. 


17.2.1  The  Layer  Design 
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In  the  gateway  architecture  designed  here,  the  structure  of  each 
layer  in  the  gateway  is  composed  of  both  models  discussed  in  last 
section.  The  common  linker  module  and  the  protocol-dependent 
modules  are  in  charge  of  both  the  message  translation  and  the 
state  conversion  at  the  same  time. 


As  shown  in  Figure  17.3,  the  linker  module  defines  and  uses  the 
set  of  common  states  and  the  common  data  structure  for  the 
communication  session  control  and  for  the  data  packets  transfer 
to  communicate  with  the  protocol-dependent  modules.  The  state  of 
the  communication  session  and  other  control  information  are  kept 
in  record  in  the  linker  module.  The  data  packets  are  relayed 
between  the  protocol -dependent  modules.  The  protocol-dependent 
modules  can  be  further  divided  into  two  submodules.  One  of  them 
is  the  local  protocol-dependent  submodule  which  takes  care  of  the 
packet  validity  and  state  legitimacy  checking  and  the 
communication  session  status  maintenance  according  to  local 
protocols.  The  other  is  the  interface  submodule  which  takes  care 
of  the  translation  of  the  packet  structure  and  the  state 
transition  between  local  protocol  and  common  definition  of  the 
linker  module. 


The  local  protocol-dependent  submodule  takes  the  full 
responsibility  of  the  interface  subprotocol  with  the  underlying 
layer,  the  PDU  correctness  checking,  and  the  peer  entity 
interaction  with  the  communicating  nodes  in  the  local  network. 
For  example,  it  automatically  establishes  the  lower  layer 
connection  when  the  connection  is  requested  at  this  layer.  The 
lower  layer  provides  connection-oriented  service.  It  also 
encapsulates  and  decapsulates  the  packets  with  the  protocol 
control  information  of  the  layer,  such  as  sequence  number,  window 
control,  etc.  It  will  send  back  reasonable  responses  and  change 
its  own  state  when  service  is  requested  by  the  other  nodes  in  the 
network . 


The  interface  submodule  translates  the  packet  data  structures 
into  the  common  data  structure,  along  with  the  translation  of  the 
control  command,  options.  The  protocol-dependent  parts  of 
packets  will  be  discarded  in  the  translation.  It  is  necessary  to 
reduce  the  amount  of  the  information  to  be  converted  to  reduce 
the  delay.  On  the  other  hand,  when  the  data  packets  and  the 
control  information  passed  over  from  the  linker  module  which  are 
not  supported  by  the  local  protocol,  it  is  also  the  interface 
submodules  responsibility  to  resolve  the  incompatibility. 


17.2.2  The  System  Design 
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Figure  17.3  Moduled  Design  of  the  Gateway  Layer 


Figure  17.4  Moduled  Design  of  the  Gateway  System 
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The  Transport  Gateway  designed  in  this  project  is  concerned  with 
both  the  Network  Layer  and  the  Transport  Layer,  as  shown  in 
Figure  17.4.  As  a  case  study,  the  TCP  and  the  IS0-TP4  with  the 
connection-oriented  reliable  virtual  circuit  service  will  be 
considered  in  the  transport  layer,  and  the  IP  and  the  ISO-IP  with 
connectionless  datagram  service  will  be  considered  in  the  Network 
Layer.  It  is  possible  to  use  only  one  linker  module  for  both  the 
Transport  and  Network  Layers,  but  it  is  against  the  concept  of 
layered  architecture  and  modular  design.  So,  separate  linker 
modules  are  used  for  each  layer  in  the  case.  Each  linker  module 
takes  care  the  communication  in  its  own  layer. 


Not  much  control  information  are  recorded  in  the  Network  Layer 
linker  module,  because  both  DoD  IP  and  ISO-IP  provide  the 
datagram  service  in  which  datagrams  are  not  logically  related  to 
each  other.  On  the  contrary,  there  is  more  common  control 
information  in  the  Transport  Layer  linker  module,  such  as 
addresses,  state  of  the  connection,  etc.  The  data  structures  and 
algorithms  are  designed  to  reduce  the  amount  of  information  to  be 
transferred  between  modules. 


Better  modularity  is  achieved  by  allocating  the  queue  of  the 
incoming  and  outgoing  packets  inside  the  interface  submodule,  and 
having  the  linker  module  in  charge  of  transferring  packets 
between  the  interface  submodules  of  individual  local  protocols. 
There  will  be  one  queue  associated  with  each  direction  of  data 
flow  in  the  interface  submodule.  The  interface  submodule  reads 
packets  in  the  incoming  buffer  queue  from  the  linker  module,  and 
deposits  packets  into  the  outgoing  buffer  queue  to  the  linker 
module,  and  modifies  the  pointers  accordingly.  The  linker  module 
treats  the  buffer  queues  of  all  interface  submodules  equally.  It 
reads  packets  from  the  outgoing  buffer  of  one  interface  submodule 
and  deposits  packets  into  the  incoming  buffer  of  another 
interface  submodule.  Using  this  strategy,  the  gateway  is  capable 
of  converting  more  than  three  sets  of  protocols  without  critical 
modification  of  the  system  design.  More  technical  issues  in  the 
design  will  be  discussed  in  following  sections. 


17.3  PROTOCOL  CONVERSION  IN  THE  NETWORK  LAYER 


The  Network  Layer  of  the  gateway  in  design  translates  the 
DoD  Internet  Protocol  (IP),  referring  to  Chapter  7,  to  and  from 
the  ISO-IP  protocol,  referring  to  DIS  8473  in  Section  12.2.  Both 
protocols  provide  the  connectionless  datagram  service. 


17.3.1  Protocol  Conversion  Tasks 
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In  the  DoD  IP  and  the  ISO-IP,  the  following  data  fields  and 
related  functions  are  protocol-dependent.  They  are  handled  inside 
the  protocol -dependent  submodules,  not  translated  during  the 
communication: 

DoD  IP  ISO-IP 

IP  Version  IP  Version 

Protocol 

Header  Checksum  Header  Checksum 

network  Layer  Protocol  ID 


All  the  other  data  fields  listed  below  need  to  be  translated  and 
transferred  to  the  other  side  in  the  communication: 


DoD  IP 

Internet  Header  Length 
Type  of  Service 
Total  Length 
Identification 
Flags 

Fragment  Offset 
Time  to  Live 

Source  Address 

Destination  Address 
Options 


ISO-IP 

Length  Indicator 
Type  Code 

PDU  Segment  Length 
Data  Unit  Id 
Flags 

Segment  Offset 

PDU  lifetime 

Source  Address  Length 

Source  Address 

Destination  Address  Length 

Destination  Address 

Options 


Among  the  parameters,  the  Internet  Header  Length  in  DoD-IP  and 
the  Length  Indicator  in  ISO-IP  are  the  length  of  the  headers  in 
32 -bit  word  and  byte  respectively.  The  original  parameters  have 
no  significance  to  the  other  protocol  sets  because  the  header 
formats  are  different.  It  should  be  modified  to  indicate  the 
length  of  the  option.  Translation  is  needed  between  the  Type  of 
Service,  the  Flags,  and  the  Options  in  DoD-IP  and  the  Type  Code, 
the  Flags,  and  the  Options  in  ISO-IP. 


The  Total  Length  in  DoD-IP  and  the  PDU  Segment  Length  in  ISO-IP 
should  be  adjusted  according  to  the  justification  of  the  header 
length.  Minor  modifications  are  needed  for  the  Identification, 
and  the  Fragment  Offset  in  DoD-IP  and  the  Data  Unit  Id,  and  the 
Segment  Offset  in  ISO-IP,  such  as  the  modification  on  the  size  of 
the  field.  The  time  unit  for  the  Time  to  Live  in  DoD-IP  should 
be  changed  from  seconds  into  half-seconds  used  in  the  PDU 
Lifetime  in  ISO-IP. 


For  the  address  fields,  the  ISO-IP  is  restricted  to  use  the 
address  formats  which  can  be  converted  into  the  CLASS  A,  B,  and  C 
address  formats  of  the  DoD-IP.  Translation  is  needed  between  the 
address  format. 
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17.3.2  Protocol-Dependent  Submodule 


The  protocol-dependent  submodule  is  the  front-end  interface  which 
receives  and  delivers  packets  to  and  from  the  sub-network  layer 
of  the  local  network.  It  checks  the  validity  of  the  packets, 
records  the  status  into  the  statistics,  and  strips  off  the  fields 
with  only  local  network  significance.  It  should  confirm  with  the 
local  protocol  definitions  about  the  interface  subprotocol  with 
the  lower  layer  and  the  peer  entity  interface  subprotocol  with 
the  communicating  entities  in  the  DoD-IP  and  ISO-IP. 


The  statistics  keeping  should  be  emphasized  here  due  to  the  fact 
that  the  Internet  Control  Message  Protocol  (ICMP,  referring  to 
Chapter  8)  is  actually  implemented  along  with  DoD-IP.  ISO-IP 
includes  some  error  control  functions  inside.  The  conversion  of 
the  difference  is  handled  by  the  combination  of  the  protocol- 
dependent  and  the  interface  submodules . 


17.3.3  Interface  Submodule 


The  translation  of  the  data  structure  of  packets  is  one  of  the 
major  functions  of  the  interface  submodule.  As  discussed  in 
previous  sections,  all  the  fields  with  data  significance  but  in 
incompatible  format,  needed  to  be  translated.  This  submodule 
also  manages  the  buffer  queues  to  be  accessed  by  the  common 
linker  module.  After  the  buffer  queues  are  allocated,  it  should 
notify  the  common  linker  module  about  the  location  and  the 
control  information  of  the  queues.  The  packets  translated  from 
DoD-IP  to  the  common  data  structure  are  deposited  in  the  outgoing 
queue.  The  packets  picked  up  from  the  incoming  buffer  queue  are 
translated  back  to  the  DoD-IP. 


Another  major  function  of  this  submodule  is  the  translation  of 
the  DoD-ICMP  packet  to  the  ISO-IP  Error  Packet.  This  task  should 
be  carefully  coordinated  with  the  protocol-dependent  submodule. 


17.3.4  Common  Linker  Module 


The  tasks  performed  in  the  common  linker  module  are  rather 
simple.  It  defines  the  common  data  structures  used  in  the 
communication  between  the  network-dependent  interface  submodules. 
After  initialization,  it  collects  the  control  information  about 
the  Network  Layer  protocols.  This  includes  the  locations  and  the 
pointers  of  the  buffer  queues.  The  remaining  tasks  are  checking 
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the  buffer  queues  of  each  interface  submodule  when  interrupts 
happened,  relaying  the  packets  in  the  buffer  if  the  buffers  are 
not  empty. 


17.4  PROTOCOL  CONVERSION  IN  THE  TRANSPORT  LAYER 


The  Transport  Layer  of  the  gateway  is  designed  to  translate 
between  the  DoD  Transmission  Control  Protocol  (TCP)  and  the  ISO- 
TP  Class  4.  Both  protocols  provide  connection-oriented  reliable 
virtual  circuit  service.  It  is  clearly  defined  that  TCP  uses  the 
services  provided  by  DoD-IP  for  the  underlying  Network  Service. 
The  ISO  Transport  Protocol  Specification  defined  in  IS  8073  is 
based  on  the  connection-oriented  Network  Services.  Adjustment  is 
needed  in  this  case  to  refer  to  the  DIS  8602,  Protocol  to  Provide 
the  Conncetionless-mode  Transport  Layer  Service.  The  case  of 
protocol  conversion  between  the  DoD  User  Datagram  Protocol  (UDP) 
and  the  ISO-TP  Class  1  could  be  a  much  simpler  case  of  the  TCP  to 
TP4  conversion. 


17.4.1  Protocol  Conversion  Tasks 


The  protocol  conversion  tasks  for  this  layer  includes  the 
Transport  Protocol  Data  Unit  translation  and  the  FSM  state 
processing . 


The  following  fields  and  related  functions  are  protocol-dependent 
between  TCP  and  TP-4  which  do  not  need  translation. 


DoD  TCP 


ISO  TP-4 


Checksum 
Sequence  Number 
Acknowledge  Number 

Window 


Checksum 

Sequence  Number  (TPDU-NR) 
Acknowledge  Number  (YU-TU-NR) 
Subsequence  Number 
Flow  Control  Confirmation 


Checksum  will  be  added  for  the  TPDU  just  before  sending  it  to  the 
Network  Layer,  and  it  will  be  checked  first  after  receiving  the 
TPDU  from  the  Network  Layer.  Different  protocols  have  different 
interpretation  of  the  sequence  numbering.  The  sequence  number  in 
the  TCP  counts  the  bytes  of  user  data  transferred  by  TCP,  and  the 
sequence  number  in  ISO-TP  stands  for  the  numbering  of  TPDUs .  It 
is  more  reasonable  to  have  the  protocol-dependent  submodules  to 
handle  the  sequence  and  acknowledge  numbers  and/or  window  control 
independently. 
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The  other  parameters  have  their  own  definitions  and  formats  for 
different  protocol  suites,  and  they  need  to  be  translated  between 
the  transport  entities: 


Qafi  T££ 

Source  Port 
Destination  Port 
Data  Offset 
Flags 

Urgent  Pointer 
Options 


ISO  TP-4 

Calling  TSAP  Identifier 
Called  TSAP  Identifier 
Length  Indicator  (LI) 

TPDU  Code 

Options 

Source  Reference  (SRC-REF) 
Destination  Reference  ( DST-REF ) 
Disconnect  Reason  (REASON) 
Reject  Cause  (REJECT  CAUSE) 

TPDU  size 
Version  number 
Protection 
Alternative  Class 
Acknowledge  time 
Throughput 
Residual  Error 
Priority 
Transit  Delay 
Reassignment  Time 


Among  the  parameters,  the  Source  and  Destination  References  in 
the  ISO-TP  should  be  so  restricted  that  it  can  be  represented  by 
the  Source  and  Destination  Ports  in  TCP  with  the  length  of  16 
bits.  The  Data  Offset  in  TCP  should  reflect  the  length  of  the 
options.  The  Length  Indicator  in  ISO-TP  should  reflect  the  length 
of  the  variable  part  of  the  TPDU.  Translation  is  needed  between 
the  Flags  and  the  options  in  TCP  and  the  TPDU  Code,  and  the 
Options  in  ISO-TP.  The  other  optional  control  parameters 
provided  by  ISO-TP  do  not  have  the  counterparts  in  the  TCP.  They 
should  be  handled  under  reasonable  policies. 


17.4.2  Protocol -Dependent  Submodule 


The  protocol -dependent  submodules  interface  to  the  Network  Layer 
to  send  TPDUs  to  and  to  receive  TPDUs  from  the  local  networks. 
It  checks  the  validity  of  the  TPDUs  by  checking  the  checksum  and 
the  legitimacy  of  the  TPDU  Code,  records  the  status  into  the 
statistics,  and  strips  off  the  fields  with  only  local  protocol 
significance.  It  maintains  the  state  transition  of  the  FSM  of 
the  transport  entities.  It  should  meet  the  local  protocol 
definitions  about  the  interface  subprotocol  with  the  Network 
Layer,  and  the  peer  entity  interface  subprotocol  with  the 
communicating  entities  in  the  other  TCP  and  ISO-TP  nodes. 
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17.4.3  Interface  Submodule 


The  translation  of  the  data  structure  of  TPDUs  and  the  Transport 
FSM  state  are  the  major  functions  of  this  submodule.  As 
discussed  in  previous  sections,  all  the  fields  with  data 
significance  but  in  incompatible  format  needed  to  be  translated. 
The  submodule  also  allocates  and  manages  the  TPDU  buffer  queues 
to  be  accessed  by  the  common  linker  module. 


17.4.4  Common  Linker  Module 


The  procedures  executed  in  this  module  are  rather  direct.  It 
collects  the  control  information  about  the  locations  and  the 
pointers  of  the  TPDU  buffer  queues  after  they  are  initialized. 
The  control  information  is  used  for  accessing  and  controlling  the 
TPDU  relay.  The  control  information  about  each  communication 
session  should  also  be  maintained  in  the  common  linker  module  so 
that  the  supervision  of  the  virtual  circuits  can  be  implemented. 


17.5  DESIGN  TOOLS 


The  most  important  thing  in  the  communication  system  design  is  to 
handle  the  concurrence  in  an  unambiguous  way.  In  order  to  select 
the  right  tool  for  specifying  the  gateway  system,  the  current 
protocol  description  techniques  will  be  reviewed  first. 


In  recent  years,  a  lot  of  efforts  have  been  put  in  the  research 
of  the  Formal  Description  Techniques  ( FDTs ) .  Generally  speaking, 
they  are  the  methods  to  define  the  system  behavior  without  using 
a  natural  language  so  that  the  system  can  be  analyzed  and 
interpreted  unambiguously.  They  are  important  tools  for  the 
design,  analysis  and  specification  of  information  processing 
systems  so  that  the  system  descriptions  can  be  produced  in  a 
self-contained,  complete,  consistent,  precise,  concise  and 
unambiguous  way.  Two  FDTs  defined  by  ISO  are  ESTELLE  and  LOTOS. 


ESTELLE  is  a  second  generation  FDT  based  upon  the  extended  Finite 
State  Machine  (FSM)  model  which  is  considered  to  be  closer  to 
human  understanding  of  protocol.  A  specification  in  ESTELLE  is 
comprised  of  a  set  of  modules  which  communicate  with  each  other. 
Modules  are  specified  as  extended  FSMs.  ESTELLE  is  a  procedural 
technique.  Facilities  in  ESTELLE  consist  of  a  set  of  extensions 
to  PASCAL,  specifying  transitions  in  PASCAL,  introducing 
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algorithm  details,  thereby  often  over-specifying  and  diminishing 
the  applicability  of  FDT .  The  communication  in  ESTELLE  is  done 
by  asynchronous  message  passing  FIFO  queue  buffering. 


LOTOS  (Language  Of  Temporal  Ordering  Specification),  on  the  other 
hand,  describes  the  system  by  defining  the  temporal  relation 
between  events  in  the  externally  observable  behavior.  One  of  the 
two  components  deals  with  the  description  of  process  behaviors 
and  interactions,  based  on  the  non-procedural  predicate  calculus 
and  modified  Calculus  of  Communicating  System  (CCS).  The  other 
component  deals  with  the  description  of  data  structures  and  value 
expressions,  based  on  the  Abstract  Data  Type  (ADT)  language  ACT 
ONE  . 


LOTOS  can  express  the  concurrence  and  the  functional  abstraction 
unambiguously.  But  unlike  the  protocol  specification  with  the 
emphasis  on  the  description  of  the  externally  observable 
behaviors,  the  gateway  design  are  more  emphasized  with  clear 
description  and  easy  understanding  of  the  design.  Since  the 
procedural  description  with  state  transition  in  FSM,  like  the  one 
in  ESTELLE,  are  closer  to  the  human  understanding,  it  is 
preferred  with  moduled  design  to  the  non-procedural  predicate 
logic  in  LOTOS.  On  the  other  hand,  the  functional  abstraction 
using  rule  based  design  will  be  considered  as  necessary  to  avoid 
over-specification.  For  the  data  abstraction,  the  modified  ADT 
with  less  algebraic  specifications  but  more  state  transition 
descriptions  will  be  used  so  that  the  mechanism  can  be  easily 
understood  and  constructed. 


18.  SYSTEM  ARCHITECTURE  AND  COMMON  DATA  STRUCTURE 


To  get  a  better  view  and  understanding  of  system  and  better 
understanding  of  the  gateway  design,  we  start  the  design  from  the 
system  structure,  the  common  data  structures,  and  the  TP-4 
dependent  submodule.  We  approach  the  problem  in  this  way  in  order 
to  give  detailed  understanding  of  how  the  transport  services  are 
provided  through  the  internal  mechanism.  Then,  the  transport 
linker  module,  the  interface  submodules  for  both  TP-4  and  TCP, 
and  the  TCP  dependent  submodule  will  be  designed.  The  modules  in 
the  network  layer  will  be  designed  in  the  last  section. 


In  this  section,  the  transport  gateway  system  structure  will  be 
described  first.  The  data  structures  and  module  descriptions 
will  then  be  designed  in  correct  ESTELLE  order.  The  transport 
gateway  specification  in  ESTELLE  is  included  in  Appendix  A. 
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18.1  SYSTEM  ARCHITECTURE  OF  TRANSPORT  GATEWAY  SPECIFICATION 


The  Transport  Gateway  system  is  composed  of  two  layers  with 
several  modules  in  each  layer,  as  indicated  in  Figure  18.1  below. 


The  ISO-IP  and  DoD-IP  dependent  submodules  directly  communicate 
with  local  networks.  All  the  other  modules  communicate  with  each 
other  by  exchanging  messages. 


One  difficult  problem  in  the  approach  is  how  to  convey  the 
network  control  information  (Network  PDU  header)  between  the 
network  module  which  receives  incoming  PDUs  and  the  network 
module  which  sends  outgoing  PDUs .  There  is  no  such  kind  problem 
in  an  ordinary  node  because  the  upper  layer  (Transport  Layer) 
user  specifies  the  network  control  parameters  for  sending  data 
when  requesting  the  network  services.  The  network  control 
information  in  the  received  PDU  header  is  decapsulated  before 
transferring  the  data  part  to  the  Transport  Layer.  In  the  case  of 
Transport  Gateway,  the  network  control  information  are  lost  when 
the  PDUs  decapsulated .  Certain  scheme  must  be  worked  out  to 
overcome  this  problem.  It  is  not  good  idea  to  attach  the  network 
control  information  with  the  transport  layer  data  because  it  is 
against  the  layered  concept.  It  is  possible  to  have  the  network 
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modules  to  communicate  directly  with  each  other  for  the  control 
information,  but  a  one-to-one  relationship  has  to  be  kept  between 
the  transport  layer  data  and  the  network  control  information. 


One  approach  to  solve  the  problem  is  to  have  the  TPDU  carry  a 
token  so  that  the  network  module  on  the  other  side  can  use  the 
token  to  retrieve  the  network  control  information.  The  token  is 
composed  of  two  elements:  the  Network  Module  Id  to  identify  the 
initiating  network  and  protocol  type,  and  the  Message  Id  to 
locate  the  particular  PDU.  The  Network  Module  Id  is  used  to 
identify  the  buffer  pool  for  the  retrieval  operation.  The 
procedure  of  the  communication  works  as  follow: 

a)  The  network  module  receiving  the  incoming  PDUs  will  send 
the  network  control  information  separately  to  the  network 
module  on  the  other  side,  along  with  the  local  Network 
Module  Id,  and  Message  Id; 

b)  The  Network  Module  Id  and  the  Message  Id  will  also  be  kept 
in  the  TPDUs  in  two  special  fields; 

c)  When  the  TPDU  reaches  the  network  module  at  the  other  side, 
the  related  network  control  information  will  be  picked  up  by 
matching  the  Network  Module  Id  and  the  Message  Id. 

This  scheme  will  be  reflected  in  the  common  data  structure 
definition  in  next  section. 


18.2  COMMON  DATA  STRUCTURES 


This  section  of  the  system  design  specifies  the  global  control 
variables  and  the  common  data  structures  used  in  the  message 
exchanging.  The  data  structures  defined  here  are  for  those 
messages  exchanged  between  different  modules  at  the  system  level. 
For  example,  the  ISO-IP  PDUs  are  exchanged  between  the  ISO-IP 
module  and  the  external  world  which  is  considered  at  the  system 
level,  while  the  interpretation  of  the  PDUs  is  done  inside  the 
module.  The  data  structure  of  the  PDU  is  defined  at  the  system 
level,  while  the  interpretation  of  the  values  of  the  data  fields 
is  done  inside  the  module. 


The  way  the  data  structures  and  the  interfaces  are  defined  here 
is  quite  different  from  the  formal  protocol  specifications.  For 
the  formal  protocol  specification,  the  important  thing  is  to 
define  the  interface  so  clearly  and  unambiguously  that  it  can  be 
easily  understood.  But  it  cannot  be  done  in  the  exactly  same  way 
in  the  gateway  specification  because  it  could  make  the  design  and 
implementation  more  difficult.  So  in  some  places,  the  data 
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structures  and  the  interfaces  are  defined  in  a  way  of  message 
format  oriented  and  implementation  oriented.  When  the  underlying 
Network  Layer  service  is  connectionless,  only  one  kind  of  data 
format  is  needed  for  the  communication  with  Network  Layer. 


18.3  TRANSPORT  GATEWAY  SPECIFICATION 


The  commented  specification  for  the  transport  gateway  is  enclosed 
in  Appendix  A. 


19.  NETWORK  LAYER  DESIGN 


In  the  NETWORK_LAYER  module,  the  common  linker  module  discussed 
previously  is  included  as  a  part  of  the  NETWORK_LAYER  module 
definition  with  common  data  structures  defined  and  submodule 
interaction  handled.  The  submodules  describe  the  functionalities 
and  the  interfaces  for  ISO-IP  and  DDN-IP  respectively. 


19.1  SOME  RELATED  PROBLEMS 


19.1.1  Handling  of  Segmentation 


One  point  which  is  worth  to  mention  here  is  that  the 
segmentation  information  in  the  PDU  header  are  not  necessary 
transferred  over  the  gateway.  The  segmentation  information 
includes  the  flags,  the  Unit  Id  and  Total  Length,  the  Segment 
Offset,  and  the  Segment  Length.  The  segmentation  is  done  on  the 
TPDU  basis  for  those  TPDU  with  over  large  size.  segments  are 
reassembled  back  to  original  TPDU  before  sending  it  back  to  the 
receiving  Transport  entity.  It  is  absolutely  necessary  because 
the  protocol  conversion  is  at  the  Transport  Layer  which  needs  the 
complete  TPDU,  not  some  segments  of  it.  After  the  TPDU  goes 
through  the  gateway,  the  TPDU  will  be  segmented  by  the  sending 
network  entity  if  necessary,  but  it  is  under  the  complete  control 
of  that  network  entity.  Original  segmenting  information  has  no 
significance  here. 


19.1.2  Handling  of  Routing 
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One  of  the  important  issues  in  the  Network_Layer  Gateway  here  is 
the  handling  of  routing.  In  the  case  of  ordinary  Network_layer 
gateway,  the  routing  information  can  be  achieved  by  packet-to- 
packet  translation.  In  our  case  of  the  Transport_Layer  gateway, 
we  have  the  special  situation  that  the  gateway  can  "make  up"  some 
packets  in  responding  to  some  packets  just  received.  More 
complicated  mechanism  are  needed  to  solve  the  problem: 

1)  The  Common  Linker  will  translate  the  routing  information, 
but  both  ISO_IP  and  DDN_IP  submodules  need  to  keep  records 
of  the  routing  information; 

2)  It  is  necessary  to  encourage  the  usage  of  both  source 
routing  and  record  routing,  so  that  returning  routing 
information  can  be  found  and  converted  to; 

3)  In  order  to  find  the  routing  information  for  those  "made  up" 
packets,  the  IP  submodules  will  always  keep  the  routing 
information  updated  by  referring  to  current  received  packet. 
The  "made  up"  packets  from  Transport  Layer  will  have  IP 
address  only,  but  the  routing  information  will  be  assembled 
by  the  IP  submodules. 

4)  Certain  measures  are  required  to  keep  the  amount  of 
recorded  information  down. 


Following  strategies  are  used  in  our  design: 

1)  The  normal  one-to-one  translated  messages  will  be  assigned 
with  a  non-zero  "message_id"  by  the  receiving  IP  submodule 
before  sending  to  the  Transport  Layer  and  sending  over 
through  Network  Layer  Gateway.  Using  "message_id"  will  ease 
the  task  to  assemble  the  data  portion  translated  by  the 
Transport  Layer  Gateway  with  the  network  routing  information 
and  some  other  control  information. 

2)  when  the  IP  submodule  receives  a  PDU  with  zero  "message_id" , 
it  knows  that  it  is  the  "made  up"  PDU  from  the  Transport 
Layer.  The  IP  module  will  find  the  communicating  pair  by 
matching  up  the  source  and  destination  IP  addresses,  and 
pick  up  the  newest  routing  information  for  that  pair  to  be 
assembled  into  the  "made  up"  PDU. 


19.1.3  Handling  of  QoS  Parameters 


By  the  standard  protocol  specifications  such  as  ISO-TP  (ISO 
8073),  the  Quality  of  Service  (QoS)  parameters  are  passed  from 
the  Transport  Layer  to  Network  Layer  for  service  request,  and 
from  the  Network  Layer  to  the  Transport  Layer  for  service 
indication.  But  here  in  the  case  of  the  Transport  Layer  Gateway, 
there  is  no  such  user  of  the  Transport  Layer  to  specify  the  QoS 
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requirements  or  to  accept  the  QoS  parameters  from  peer  entity. 
So,  there  is  no  need  to  pass  those  control  parameters  between  the 
Transport  and  Network  Layers,  but  to  translate  and  to  pass 
through  the  Common  Linker  at  the  Network  Layer.  This  concept  is 
reflected  in  the  message  format  design  and  handling. 


19.2  NETWORK  LAYER  MODULE  SPECIFICATION 


The  commented  specification  for  the  NETWORK_LAYER  module  inside 
the  transport  gateway  is  enclosed  in  Appendix  A. 2. 


20.  TRANSPORT  LAYER  DESIGN 


In  this  chapter,  some  special  problems  related  to  the  protocol 
conversion  at  the  Transport  Layer  are  discussed,  followed  by  the 
specification  of  the  Transport_Layer  module  of  the  Transport 
Gateway . 


20.1  SOME  RELATED  PROBLEMS 


20.1.1  Classes  of  Service  Allowed  through  Gateway 


Considering  the  fact  that  the  DDN  TCP  provides  the  reliable  end- 
to-end  virtual  circuit  service  which  is  equivalent  to  the  CLASS-4 
service  of  the  ISO  TP,  it  is  reasonable  to  restrict  the 
communication  through  the  gateway  to  the  same  type  of  service, 
i.e.  TP-4.  By  imposing  this  consideration,  it  means  that  when 
the  gateway  tries  to  establish  the  connection  initiated  by  the 
TCP  node.  It  will  request  the  CLASS-4  service  at  the  ISO  network 
side.  On  the  other  hand,  the  gateway  will  accept  only  the 
connection  requests  from  the  ISO  network  which  requests  CLASS-4 
services.  ISO  TP  conformance  requires  that  when  CLASS-4  is 
implemented,  it  shall  also  implement  the  CLASS-2.  The  CLASS-2  is 
not  treated  here. 


20.1.2  Internal  FSM  Modifications 


As  the  special  characteristics  of  the  transport  gateway 
implementation,  there  is  no  Transport  Layer  user  and  the 
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interface.  The  state  transition  model  is  no  longer  kept  the  same 
as  the  transport  protocol  implementation.  Only  the  TPDUs  and  the 
peer  entity  interactions  are  kept  the  same  as  defined  in  the 
original  protocols  respectively.  Examples  of  the  state 
transitions  for  connection  establishment  and  connection  release 
for  the  ISO  TP-4,  TCP,  and  for  the  transport  gateway  are  shown  in 
Figures  20.1  to  20.8. 


Both  ISO  TP-4  and  DDN  TCP  use  three-way  handshaking  in  the 
connection  establishment,  as  shown  in  Figure  20.1  and  20.2. 
Three  TPDUs  are  equivalent  between  two  protocols:  connection 
request,  connection  confirm,  and  the  acknowledge.  The  difference 
is  that  the  TP-4  user  of  the  receiving  node  in  ISO  network  will 
receive  a  TCONind  after  the  Transport  Protocol  Machine  (TPM) 
receives  the  Connection  Request,  and  needs  to  issue  a  TCONresp  to 
confirm;  while  the  TCP  user  of  receiving  node  in  DDN  needs  to 
issue  a  passive  OPEN  in  advance  to  ready  for  incoming  call.  In 
the  case  of  the  Transport  Gateway,  the  state  transitions,  shown 
in  Figure  20.3  and  20.4,  are  neither  the  same  as  the  one  in  ISO 
TP-4,  nor  the  one  in  TCP.  It  always  uses  three  state  transition 
steps,  and  the  transient  states  are  different  between  the  TP-4 
initiated  call  and  the  TCP  initiated  call.  It  is  critical  to 
maintain  the  same  message  exchanging  and  peer  entity  interaction 
between  the  two  end  nodes  in  ISO  network  and  DDN. 


In  the  case  of  Connection  Release,  as  shown  in  Figure  20.5  and 
20.6,  the  TPM  of  the  TCP  in  the  DDN  plays  orderly  release.  This 
means  that  the  connection  is  released  upon  the  agreement  between 
two  TPM  users  at  both  side,  while  the  TPM  in  the  ISO  network 
releases  the  connection  upon  the  user  request  from  one-side  only. 
As  discussed  earlier,  there  could  be  several  strategies  to 
resolve  the  difference.  If  the  DDN  applications  are  supposed  to 
run  in  both  ISO  and  DDN,  the  TP-4  in  the  ISO  network  should 
include  the  orderly  release  function  in  the  sublayer.  If  the  ISO 
applications  are  supposed  to  run  in  two  networks,  the  orderly 
release  in  the  TCP  can  be  simplified  because  the  ISO  Session 
Layer  includes  the  orderly  release  function.  The  second  case  is 
considered  in  the  design  here.  As  shown  in  Figure  20.7  and  20.8, 
the  simplification  is  done  inside  the  Transport  gateway  to 
resolve  the  difference,  while  the  message  exchanging  and  the  peer 
entity  interaction  between  two  end  nodes  are  still  kept  confirmed 
with  original  protocols . 


The  state  transition  for  the  Connection  Establish  and  the 
Connection  Release  inside  the  Transport  Gateway  are  shown  in 
Figure  20.9  and  20.10. 
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Figure  20.1  State  Transition:  ISO-TP4  Connection  Establishment 
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Figure  20.2  State  Transition:  DDN-TCP  Connection  Establishment 
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Figure  20.3  TP-Gateway  Connection  Establishment  Initiated  by  ISO-TP4 
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Figure  20.4  TP-Gateway  Connection  Establishment  Initiated  by  DDN-TCP 
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Figure  20.5  State  Transition:  ISO-TP4  Connection  Release 
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Figure  20.6  State  Transition:  DDN-TCP  Connection  Release 
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Figure  20.7  TP-Gateway  Connection  Release  Initiated  by  ISO-TP4 
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Figure  20.8  TP-Gateway  Connection  Release  Initiated  by  DDN-TCP 
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Figure  20.9  State  Transitions  TP-Gateway  Connection  Establishment 


Figure  20.10  State  Transition:  TP-Gateway  Connection  Release 
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20.2  TRANSPORT  LAYER  MODULE  SPECIFICATION 


Functionally  speaking,  this  module  can  be  further  divided  into 
two  sub-modules:  the  TP4 -dependent  submodule,  and  the  TP4- 
interface  submodule.  But  due  to  the  restrictions  of  the  ESTELLE- 
like  specification  language,  and  the  special  situation  inside  the 
module,  the  relationship  between  the  TP4-dependent  and  the  TP4- 
interface  submodules  are  specified  as  a  parent-process  and  the 
child-processes.  The  TP-machines  are  dynamically  created  and 
terminated  as  the  transport  connection  established  and  released. 
The  parent  process  in  ESTELLE  can  create  the  instance  of  the 
child  process,  the  instances  of  the  TP4-interface  submodule  are 
created  by  the  TP4-dependent  module  upon  receiving  the  Connection 
Request  (CR)  from  ISO-IP  module  or  from  the  other  side  of  the 
gateway . 


The  commented  specification  for  the  TRANSPORT_LAYER  module  inside 
the  transport  gateway  is  enclosed  in  Appendix  A. 3. 


21.  CONCLUSION 


Starting  from  the  in  depth  discussion  of  internetworking 
requirements,  this  project  studies  the  protocol  interoperability 
issues  in  the  DDN  internet  environment  in  detail,  with  emphasis 
on  the  interoperability  with  ISO  standard  protocols.  Both  the 
DDN  and  the  ISO  protocol  suites  are  studied  in  terms  of  the  basic 
functionalities  of  the  layered  services,  service  access  point 
interfaces,  and  protocol  peer  entity  mechanisms.  The  protocol 
conversions  between  the  DDN  TCP/IP  and  the  ISO  IP/TP4  is  designed 
using  ESTELLE,  with  the  concerns  of  the  methodology  in  dealing 
with  the  interoperability  problem. 


With  such  a  larger  volume  of  research  efforts  involved  in  the 
transport  gateway  design  than  the  conventional  Network  Layer 
gateway  design,  it  raises  some  very  interesting  questions  for 
future  studies. 

1)  Selection  of  better  tools.  LOTUS  is  very  good  in  formal 
specification  of  protocols,  and  ESTELLE  is  a  more 
implementation-oriented  design  tool.  Still,  some  better 
tools  are  needed  to  overcome  their  shortcomings. 

2)  Verification  of  such  large  implementation-oriented  system. 
With  such  a  large  system,  it  is  very  difficult  to  verify  the 
design  by  simulation  or  testing.  It  is  also  painful  to 


97 


convert  the  design  to  some  other  tools  for  the  ver i f icat ion . 
New  deveoping  environment  should  have  both  the  abilities  for 
specification  and  verification. 

3)  Performance  studies.  For  those  uncertain  parameters  or 
untested  strategies  in  such  a  complex  system,  more 
performance  studies  are  needed  to  verify  the  design 
strategies  and  to  improve  the  throughput,  response  time. 

4)  Prototype  demonstrations.  Because  of  the  complexity  of 
implementing  conversion  between  DDN  TCP/IP  and  ISO  TP/'IP 
networks,  a  prototype  demonstration  should  be  undertaken. 
Initially,  the  demonstration  can  be  performed  using  a 
gateway  between  two  TCP/IP  and  ISO  TP4/IP  local  area 
networks . 


It  is  in  the  interest  of  the  USAISC  to  continue  to  research  the 
interoperability  problems  between  the  DDN  and  ISO  protocols. 
Experience  gained  in  these  efforts  can  yield  information, 
specif ication,  and  prototypes  which  help  the  USAISC  and  support 
activities  understanding  the  major  issues  and  problems. 
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APPENDIX  A.  TRANSPORT  GATEWAY  SPECIFICATION 


APPENDIX  A. 1  GLOBAL  DEFINITIONS 
specification  TRANSPORT_GATEWAY ; 
constant 


IP  LINKER  =  0; 

(* 

ISO  IP  MODULE  =  1; 

(* 

DoD  IP  MODULE  =  2; 

(* 

TP  LINKER  =  8; 

(* 

ISO  TP 4  MODULE  =  9; 

(* 

DoD_TCP_MODULE  =  10; 

(* 

MAX_QUEUE  =  . . . ; 

(* 

AND  THE  ROOT  MODULE 


IP  Common  Linker  Module  Id  *) 
ISO-IP  Module  Id  *) 

DoD-IP  Module  Id  *) 

TP  Common  Linker  Module  Id  *) 
ISO-TP4  Module  Id  *) 

DoD-TCP  Module  Id  *) 

queue  length  limit  *) 


type 


octet  =  0  .  .  255 ; 
short_word  =  . . . ; 
word_type  =  .  .  .  ; 
data_type  =  .  .  .  ; 


( *  one  byte  * ) 

( *  two  bytes  * ) 

(  *  four  bytes  * ) 

(*  uniterpreted  string  of  bytes  with 
variable  length,  has  semantics  of 
string  pointer  *) 


SNi_addr_type  =  (*  ISO  SubNetwork  Address  *) 

SNi_QoS_type  =  .  ..;  (*  ISO  SubNetwork  QoS  *) 


SNd_addr_t/pe  =  .  ..;  (*  DDN  SubNetwork  Address  *) 
SNd_QoS_typ3  =  (*  DDN  SubNetwork  QoS  *) 


direction_type  =  (in, out);  (*  data  flow  direction  *) 

initiator_type  =  (local,  remote); 
queue_type  =  record 

buf  :  array  [ 1 . . MAX_QUEUE ]  of  data_type; 

last:  integer; 

end; 
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(***  ***) 

(***  Data  Structure  Definitions  for  ISO-IP  PDU  ***) 

(***  ***) 


I_IP_addr_type  -  record 
length  :  1 . . 255; 
addr  :  data_type; 
end ; 


I_IP_option_type  =  record 
code  :  octet; 
length  :  1 .  . 255 ; 
value  :  data_type ; 
end; 


(*  ISO-IP  address  format  *) 
(*  length,  positive  *) 

(*  variable  length  *) 


(*  ISO-IP  option  format  *) 

(  *  parameter  code  * ) 

(*  length,  positive  *) 

(*  data,  variable  length  *) 


I_IP_PDU_type  =  record  (* 

net_prot°col_id  s  octet;  (* 

length  :  octet;  (* 

version:  octet;  (* 

lifetime:  octet;  (* 

flags:  octet;  (* 

seg_length:  short_word;  (* 

checksum:  short_word;  (* 


destin_addr:  I_IP_addr_type; 
source_addr:  I_IP_addr_>type; 


ISO-IP  PDU  format  *) 
network_layer_protocol_id 
header  length  indicator  * 
IS8473  version,  0000  0001 
PDU  lifetime,  half-sec  *) 
segment  &  errot  flags  *) 
PDU  length  *) 

PDU  header  checksum  *) 


(*  optional  *) 

data_unit_id:  short_word;  (*  initial  PDU  id  *) 
seg_offset:  short_word;  ( *  data  in  initial  PDU  data 
total_length:  short_word;  (*  length  of  initial  PDU  *) 

{*  end  of  optional  part  *) 


option:  I_IP_option_type ; 

data :  data_type ; 

end; 


) 


* 


* 


* 


) 


) 

) 


(*  The  PDU  structures:  I_IP_PDU_type  here  and  D_IP_PDU_type 
below,  are  defined  because  the  message  exchanging  between  the 
ISO-IP  module,  the  DDN  IP  module  and  the  external  world  are  at 
the  system  level.  The  values  of  the  data  fields  are  defined 
inside  the  ISO-IP  and  the  DDN  IP  modules  respectively.  *) 
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{***  ***) 

(***  ***) 

(***  Data  Structure  Definitions  for  DDN-IP  PDU  ***) 

(***  ***) 


D_IP_PDU_type  =  record 
I_length  :  octet; 
service  :  octet; 
tot_length:  short_word; 
id:  short_word; 
flags:  octet; 
offset:  short_word; 
lifetime:  octet; 
protocol  :  octet; 
checksum:  short_word; 
source_addr:  word_type; 
destin_addr:  word_type; 
option:  data_type; 
data:  data_type; 
end; 


(*  IP  version(4)  &  header  length 
(*  type  of  service  *) 

(*  PDU  total  length  *) 

(*  PDU  identification  *) 

(*  segmentation  flags  *) 

(*  fragment  offset  *) 

(*  PDU  time  to  live,  in  sec  *) 

(*  next  level  protocol  *) 

(*  header  checksum  *) 


*) 


(  *** 

^  *** 
'  *** 

^  *  *  * 


Data  Structure  Definitions  for  IP-TP 
Message  Exchanging 


***  j 
***  ^ 
*  *  *  j 
***  ^ 


IP_TP_message_type  =  record 
module  :  octet; 

message  :  octet; 
s_IP_addr  :  word_type; 
d_IP_addr  :  word_type; 
data  :  data_type; 

end; 


(*  Module  Id,  left  4  bits 

for  desti.  module  *) 
(*  Message  Id  *) 

(*  source  IP  address  *) 

(*  destin  IP  address  *) 

(*  TPDU  *) 


(*  The  message  format  defined  above  are  used  for  the 
communications  between  the  Network  Layer  and  the  Transport  Layer, 
that  is,  between  the  ISO-IP  and  ISO-TP  submodules,  and  between 
the  DoD-IP  and  TCP  submodules.  The  IP_addr  fields  is  always 
required  to  distinguish  the  particular  connection  over  one  pair 
of  sockets  which  is  made  of  the  IP  address  and  the  Transport 
TSAP  address.  The  interpretation  of  the  data  part,  that  is,  the 
TPDU,  is  done  inside  the  ISO-TP  and  DoD-TCP  submodules  *) 
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(  *** 
(  *** 
^  * 


Module  Interaction  Points 


***  j 
*  *  * ) 
*** ) 

(*  ISO  Network  Interaction  Point  (to  the  sub-network)  *) 

channel  I_IP_subnet_primitives  (user,  provider); 

by  user: 

I_IP_PDUre<3 

(SNi_d_addr:  SNi_addr_type ; 

SNi_s_addr:  SNi_addr_type; 

SNi_QoS:  SNi_QoS_type ; 
packet  :  I_IP_PDU_type ) ; 

by  provider: 

I_IP_PDUind 

(SNi_d_addr:  SNi_addr_type; 

SNi_s_addr:  SNi_addr_type ; 

SNi_QoS:  SNi_QoS_type; 
packet  :  I_IP_PDU_type ) ; 


(*  DON  Network  Interaction  Point  (to  the  sub-network)  *) 

channel  D_IP_subnet_primitives  (user,  provider); 

by  user: 

D_IP_PDUreq 

( SNd_d_addr :  SNd_addr_type ; 

SNd_s_addr :  SNd_addr_type ; 

SNd_QoS:  SNd_QoS_type; 
packet  :  D_IP_PDU_type ) ; 

by  provider: 

D_IP_PDUind 

( SNd_d_addr :  SNd_addr_type ; 

SNd_s~addr ;  SNd_addr_type ; 

SNd_QoS :  SNd_QoS_type ; 
packet  :  D_IP_PDU_type ) ; 
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(*  Network  Service  Interaction  Point  (to  Transport  Layer)  *) 


channel  NCEP_primitives  (user,  provider); 
by  user: 

IP_TP_MESreq  (message  :  IP_TP_message_type ) ; 
by  provider: 

IP_TP_MESind  (message  :  IP_TP_message_type ) ; 


^  *  *  * 

(***  Module  Definitions 

( *** 


*  *  ★  ^ 

*  *  *  J 

*  *  *  J 


module  NETWORK_LAYER_entity_type  process 

(SNSi:  I_IP_subnet_primitives  (user); 
(SNSd:  D_IP_subnet_primitives  (user) ; 
NSi:  NCEP_primitives  (provider); 

NSd:  NCEP_primitives  (provider); 

)  ; 


module  TRANSPORT_LAYER_entity_type  process 
(NSi:  NCEP_primitives  (user); 

NSd:  NCEP_primitives  (user); 

)  ; 


body  NETWORK_LAYER_entity_body  for  NETWORK_LAYER_entity_type ; 

external ; 

body  TRANSPORT_LAYER_entity_body  for  TRANSPORT_LAYER_entity_type; 

external ; 
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Common  Procedures 


*  *  *  j 

*  *  *  ^ 
*** ) 


(  *** 

I  *** 

( *** 

function  d_length  (mes:  data_type)  :  integer;  primitive; 

(*  calculate  the  length  of  the  string  *) 

procedure  d_append  (var  mes:  data_type; 

mes2:  data_type);  primitive; 

(*  append  string  mes2  to  mes  *) 

function  d_create  (1:  integer)  :  data_type;  primitive; 

(*  allocate  data  string  space,  initialize  to  zeros  *) 


function  d_get  (pdu:  data_type;  offset:  integer)  :  octet; 
( *  get  one  byte  from  the  string  * ) 
begin 

d_get  :=  pdu [off set]; 
end; 


function  d_gets  (pdu:  data_type; 

offset, 1:  integer)  :  data_type; 

(*  get  a  sub-string  of  length  1  from  a  string  at  offset  *) 

var 

mes :  data_type ; 
i:  integer; 

begin 

mes  :=  d_create(l); 
for  i  : *  1  to  1  do 

mes[i]  :=  d_get(pdu,  offset+i-1); 
d_gets  :=  mes; 
end; 


function  get_sword  (mes:  data_type;  1: integer)  :  short_word; 
(*  get  a  short_word  of  length  1  from  the  string  *) 

var 

sw:  short_word; 
i:  integer; 

begin 
sw  : =  0 ; 

for  i  :=  1  to  1  do 

sw  :=  sw*256  +  mes(i]; 
get_sword  :  =  sw; 
end; 


function  get_word  (mes:  data_type;  1: integer)  :  word_type; 
(*  get  a  word  of  length  1  from  the  string  *) 

var 

w:  word_type; 
i:  integer; 

begin 
w  :  =  0  ; 

for  i  :=  1  to  1  do 

w  :=  w*256  +  mes[ij; 
get_word  : *  w; 
end; 


procedure  d_put  (var  pdu:  data_type; 

offset:  integer;  byte:  octet); 

(*  put  one  byte  into  the  string  *) 

begin 

pdu (off set]  :=  byte; 
end; 
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procedure  d_puts  (var  pdu:  data_type; 

offset:  integer;  segment:  data_type); 

(*  put  s  sub-string  into  string  at  offset  *) 

var 

1 ,  i :  integer; 
begin 

1  :=  d_length( segment ) ; 
for  i  :=  1  to  1  do 

pdu[of fset+i-1 ]  :=  segmentfi]; 

end; 


procedure  d_bitset  (var  byte:  octet; 

bit:  integer; 

flag:  boolean)  :  octet; 

(*  set  the  bit,  as  arranged  to  8..1  *) 


var 

b:  octet; 

begin 
b  :  =  1 ; 

for  bit  :-  bit-1  to  1  do 

b  : =  b*2;  (*  shift  left  *) 

if  (flag)  then 

byte  : =  byte  or  b;  (*  set  *) 

else 

byte  : =  byte  and  ( not  b ) ;  ( *  reset  * ) 

end; 
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function  d_encode  (n:  integer)  :  octet; 

(*  convert  integer  to  octet  (data_type)  *) 


var 

byte:  octet; 
i:  integer; 

begin 
byte  : =  0 ; 
for  i  : =  1  to  8  do 
begin 

if  (n  mod  2<>0)  then 

d_bitset  (byte, i, true) ; 
n  :=  n  div  2; 
end; 

d_encode  :=  byte; 
end; 


function  d_encode2  (n:  integer)  :  data_type; 
(*  encode  integer  to  2-byte  string  *) 

var 

mes :  data_type ; 
begin 

mes  :=  d_create(2); 
djput(mes,l,  n  div  256); 
d_put(mes,2,  n  mod  256); 
d_encode2  :=  mes; 
end; 


function  d_encode4  (n:  integer);  data_type; 
(*  encode  integer  to  4-byte  string  *) 

var 

mes :  data_type ; 
begin 

mes  : =  d_create(4); 

d_puts (mes , 1 ,  d_encode2(n  div  65536)); 
d_puts (mes , 3 ,  d_encode2 ( n  mod  65536)); 
d_encode4  :=  mes; 
end; 
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procedure  clqueue  (var  Q:  queue_type); 
(*  clear  queue  Q  *) 
begin 

Q.last  :=  0; 
end; 


procedure  enqueue  (var  Q:  queue_type; 

elem:  data_type); 

(*  put  elem  in  queue  Q  at  the  tail  *) 
begin 

if  (Q.last  <  MAX_QUEUE)  then 
with  Q  do 
begin 

last  :=  last+1; 

Q[last]  :=  elem; 
end; 

end; 


function  dequeue  (var  Q:  queue_type)  :  data_type; 
(*  get  head  of  FIFO  queue  *) 
var  i:  integer; 
begin 

if  (Q.last  >  0)  then 
with  Q  do 
begin 

dequeue  :=  buf(l]; 
for  i  :*  1  to  last-1  do 
buf[i]  :=  buf[i+l]; 
last  :  =  last-1; 
end; 

else 

dequeue  :=  d_null; 

end; 


108 


function  exqueue  (var  Q:  queue_type; 

i:  integer)  :  data_type; 

(*  get  ith  element  of  queue  *) 

var  j:  integer; 

begin 

if  (Q.last  >=  i)  then 
with  Q  do 
begin 

exqueue  :=  buf[i]; 
for  j  :=  i  to  last-1  do 
buf [ j  ]  :=  buf [ j  +  1 ] ; 
last  :=  last-1; 
end; 

else 

exqueue  :=  d_null; 

end; 


procedure  requeue  (var  Q:  queue_type; 

i:  integer) ; 

(*  renew  the  elem  in  queue  Q  by  putting  it  at  the  tail  *) 

var  j:  integer; 

elem:  data_type; 


begin 

if  (Q.last  >=  i)  then 
with  Q  do 
begin 

elem  : =  Q( i ] ; 
for  j  :=  i  to  last-1  do 
buf(j]  :=  buf[j+l]; 
Q[last]  :=  elem; 
end; 


end; 


function  chk_checksum  (pdu:  data_type; 

leng:  integer)  :  boolean; 

(*  check  the  PDU_header  checksum  *) 


var 

C0,Cl,i  :  integer; 

begin 
CO  :=  0; 

Cl  :=  0; 

for  i  :=  1  to  leng  do 
begin 

CO  :=  (CO  +  d_get(pdu, i) )  mod  MODULUS; 

Cl  :=  (Cl  +  CO)  mod  MODULUS; 

end; 

if  ((C0=0)  and  (C1=0))  then 
checksum  :=  true 

else 

checksum  :=  false; 

end; 


procedure  set_checksum  (var  pdu:  data_type; 

length,  CS:  integer); 

(*  calculate  the  PDU  checksum, 

length  is  the  length  of  pdu  header, 

CS  is  the  position  of  Checksum  *) 

var 

X , Y  :  octet; 

C0,Cl,i  :  integer; 

begin 
CO  :=  0; 

Cl  :=  0; 

for  i  :*  1  to  length  do 
begin 

CO  :=  (CO  +  d  get(pdu,i))  mod  MODULUS; 

Cl  :=  (Cl  +  CO)  mod  MODULUS; 

end; 

length  : =  length  -  CS; 

X  :=  (-C1  +  length*C0 )  mod  MODULUS; 

Y  :=  ( Cl- ( length+1 ) *C0 )  mod  MODULUS; 
d_put(pdu,  CS,  X); 
d__put(pdu,  CS+1,  Y); 
end; 
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^  *  *  * 
J  *  *  * 
^  *  *  * 


initialization 


*  *  *  j 

*  *  *  ^ 
*  *  *  j 


initialize 

init  NETWORK_LAYER  with  NETWORK_LAYER_entity_body ( ) ; 
connect  SNSi  to  NETWORK__LAYER .  SNSi  (user); 
connect  SNSd  to  NETWORKJLAYER . SNSd  (user); 
connect  NSi  to  NETWORK_LAYER . NSi  (provider); 
connect  NSd  to  NETWORK_LAYER . NSd  (provider); 


init  TRANS PORT_LAYER  with  TRANSPORT_LAYER_entity_body ( ) ; 
connect  NSi  to  TRANSPORT_LAYER. NSi  (user); 
connect  NSd  to  TRANSPORT_LAYER . NSd  (user) ; 


end; 

(*  The  end  of  the  specification.  It  is  a  container  with  common 
data  types,  common  procedures  and  functions,  module 
declarations,  and  the  initialization.  The  rest  modules  are 
defined  externally.  *) 
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APPENDIX  A. 2  NETWORK  LAYER  MODULE  SPECIFICATION 


(  *** 

(***  NETWORK_LAYER  Module  Specification 

( *  *  * 


*  **  ^ 
***  j 
***  j 


body  NETWORK_LAYER_entity_body  for  NETWORK_LAYER_entity_type; 


constant 


SOURCE  ROUTING  =  1100 

1000; 

(* 

opt.  code 

for  source  routing  *) 

RECORD  ROUTING  =  1100 

1011; 

(  * 

record  route 

*) 

ERROR  REASON  =  1100  0001; 

(  * 

error  reason 

*) 

SECURITY  =  1100  0101; 

(  * 

security  *) 

QOS  =  1100  0011; 

(  * 

QoS  *) 

PRIORITY  =  1100  1101; 

(* 

Priority  *) 

PADDING  =  1100  1100; 

(* 

padding  * ) 

GW_TRANS_DELAY  =  . . . ; 

(* 

estimated 

GW  transit  delay 

*) 

type 

(*  Types  of  Reasons  for  Error_report  PDUs  *) 

error_type  =  ( NO_ERROR, 

NOT_SPECIFIED, 

PROCOTOL  PROC_ERROR, 
INCORRECT_CHECKSUM, 

CONGESTION, 

HEADER_S YNTAX_ERROR , 
DATA_TOO__LONG , 

D_ADDR_UNREACHABLE , 
D_ADDR_UNKNOWN, 
S_ROUTING_UNSPECIFIED, 
S_ROUTING_SYNTAX_ERROR , 
S_ROUTING_UNKNOWN_ADDR , 
PATH_NOT_ACCEPTABLE , 

L I FET I ME_EXP I RED_IN_TRANS IT , 
LIFETIME_EXPIRED_IN_REASSEMBLY) ; 


(*  Address_f ield  format,  as  the  components  of  route  option  *) 

addr_f ield_type  =  record 
length:  octet; 
addr:  data_type; 
end; 


(*  length  of  addr  field  *) 
(*  addr  field  *) 


(*  Routing  Option  format  *) 

routing_option_type  *  record 
code:  octet; 
length:  octet; 
flag:  octet; 


ptr:  octet; 

fields:  addr_f ield_type; 
end; 


(***  Data  Structure  Definitions  for  the  Message  ***) 
(***  Exchanging  between  IP  Dependent  Submodules  ***) 
(***  and  Common  Linker  Module  ***) 


(*  source/record  routing  *) 

(*  length  of  the  option  *) 

(*  s_routing:  l=complete; 

0=partial ; 

reroute:  0=in  progress; 

1111  llll=terminated  *) 

(*  ptr  to  addr  fields,  from  3  *) 


IP_message_type  =  record 

module  :  octet; 

message  :  octet; 

source_addr:  word_type; 
destin_addr:  word_type; 
lifetime  :  octet; 

option  :  I_IP_option 

in_time  :  octet; 

end; 


(*  IP  message  format  *) 

(*  Module  Id  *) 

(*  message  Id  *) 

(*  limited  to  4  bytes  *) 

(*  limited  to  4  bytes  *) 

(*  PDU  lifetime,  half-sec  *) 
type ; 

(*  time  arriving  in  GW  *) 


(*  The  message  format  defined  above  is  used  to  carry  information 
between  the  IP  modules  with  "the  common  linker  module".  It  is 
necessary  to  overcome  the  problem  that  the  TPDU  data  does  not 
always  carry  the  network  addresses  and  some  other  network  control 
information  such  as  lifetime  of  PDU  which  are  necessary  for 
network  layer  control.  The  information  will  be  picked  up  at  the 
other  side  of  gateway  to  assemble  the  network  PDU  header  before 
sending  the  PDU  to  the  remote  network.  *) 


(***  Data  Structure  Definitions  ***) 
(***  for  Storing  Control  Information  of  ***) 
(***  a  IP_message  ***) 


IP_message_handler_type  *  record 

message  :  octet;  {*  message  Id  *) 

lifetime  :  octet;  (*  PDU  lifetime,  half-sec  *) 

option  :  I_IP_option_type ; 

in_time  :  octet;  (*  keep  transit  time  *) 

end; 
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j  *  *  * 
(  *** 
^  *  *  * 


Data  Structure  Definitions  ***) 

for  Storing  Control  Information  of  ***) 

a  Pair  IP  Nodes  ***) 


IP__segment_type  =  record 
pdu:  data_type; 
time:  octet; 
end; 


(*  segment  &  time_marker  *) 
(*  PDU  segment  *) 

(*  time  marker  *) 


IP_pair_type  =  record 
module:  octet; 
s_IP_addr:  word_type; 
d_IP_addr:  word_type; 
s_routing:  routing^option 

r_routing:  routing_option 

unitid:  short_word; 
mes_id:  octet; 
rcv_mes_que :  queue_type  o 

send_mes_que :  queue_type 

segment_que:  queue_type  o 

t ime stamp:  wo r d_ty pe ; 
end; 


(*  module  id  *) 

(*  source  IP  address  *) 

(*  destin  IP  address  *) 

_type ; 

(*  source  routing  to  destin  *) 
_type ; 

(*  record  routing  to  source  *) 
(*  unit_id  for  sending  *) 

(*  mes_id  for  sending  *) 
f  IP_message_handler_type ; 

(*  receive  message  id  queue  *) 
of  IP_message_handler_type ; 

(*  send  message  id  queue  *) 
f  IP_segment_type; 

(*  segmentation  queue  *) 

(*  timestamp  of  action  *) 


( ***  *** ) 

(***  Module  Interaction  Points  ***) 

( ***  *** ) 

(*  IP  Network  Gateway  Interaction  Point  (to  linker  module)  *) 
channel  IP_linker_primitives  (user,  provider); 
by  user: 

IP_MESreq  (message  :  IP_message_message_type) ; 
by  provider: 

IP_MESind  (message  :  IP_message__message_type)  ; 
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I  *** 
^  *  *  * 
I  *** 


Submodule  Definitions 


**  * ) 
***  ^ 
*  *  *  ^ 


module  ISO_IP_entity_type  process 

(NET_INi:  I_IP_subnet_primitives  (user); 

NET_GWi:  IP_linker_primitives  (provider); 

NET_OUTi:  NCEP_primitives  (provider); 

) ; 

export 

i__module_id :  integer;  (*  ISO  IP  module  id  *) 

isn_rcved:  integer;  (*  packets  received  from  ISO  SN  *) 

isn_sent:  integer;  (*  packets  sent  to  ISO  SN  *) 

int_sent:  integer;  (*  packets  sent  to  ISO  TP  *) 

int_rcved:  integer;  (*  packets  received  from  ISO  TP  *) 

isn_error:  integer;  (*  errors  in  packets  with  ISO  SN  *) 

int_error:  integer;  (*  errors  in  packets  with  ISO  TP  *) 

end; 


module  DDN_IP_entity_type  process 

(NET_INd:  D_IP_subnet_primitives  (user); 

NET_GWd:  IP_linker_primitives  (provider); 

NET_OUTd:  NCEPjprimitives  (provider); 

)  ; 

export 

d__module_id:  integer;  (*  DDN  IP  module  id  *) 

dsn_rcved:  integer;  (*  packets  received  from  DDN  SN  *) 

dsn_sent:  integer;  (*  packets  sent  to  DDN  SN  *) 

dnt_sent:  integer;  (*  packets  sent  to  DDN  TCP  *) 

dnt_rcved:  integer;  (*  packets  received  from  DDN  TCP  *) 

dsn_error:  integer;  (*  errors  in  packets  with  DDN  SN  *) 

dnt_error:  integer;  (*  errors  in  packets  with  DDN  TCP  *) 

end; 


body  ISO_IP_entity_body  for  ISO_IP_entity_type;  external; 
body  DDN_IP_entity_body  for  DDN_IP_entity_type;  external; 
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( ***  *** ) 

(***  initialization  ***) 

( ***  *** ) 

initialize 

init  ISO_IP  with  ISO_IP_entity_body ( ) ; 

connect  SNSi  to  ISO_IP . NET_INi ;  (*  with  ISO  SubNet  *) 

connect  NSi  to  ISO_IP.NET_OUTi;  (*  with  ISO  TP-4  *) 

connect  NET_GWi  to  ISO__IP  .  NET_GW; 

ISO_IP . i_module_id  :=  1; 

ISO_IP . isn_rcved  :=  0; 

ISO_IP . isn_sent  : =  0; 

ISO_IP . int_sent  :=  0; 

ISO_IP . int_rcved  :=  0; 

ISO_IP . isn_error  :=  0; 

ISO_IP . int_error  :=  0; 

init  DDN_IP  with  DDN_IP_entity_body ( ) ; 

connect  SNSd  to  DDN_IP . NET_INd ;  (*  with  DDN  SubNet  *) 

connect  NSd  to  DDN_IP . NET_OUTd;  (*  with  DDN  TCP  *) 

connect  NET_GWd  to  DDN_IP.NET_GW; 

DDN_IP . d_module_ id  :=  2; 

DDN_IP .dsn_rcved  :=  0; 

DDN_IP . dsn_sent  :=  0; 

DDN_IP.dnt_sent  :=  0; 

DDN_IP.dnt_rcved  s=  0; 

DDN_IP -dsn_error  : =  0; 

DDN_IP . dnt_error  :=  0; 
end; 


(***  ***) 

(***  State  Transition  ***) 

(  *  *  *  *  *  * ) 

trans 

when  NET_GWi . IP_MESind  (*  from  ISO_IP  to  Common  Linker  *) 

begin 

output  NET_GWd. IP_MESreq( packet ) ;  (*  send  to  DDN_IP  *) 

end; 


trans 

when  NET_GWd . IP_MESind  (*  from  DDN_IP  to  Common  Linker  *) 

begin 

output  NET_GWi. IP_MESreq( packet ) ;  (*  send  to  ISO_IP  *) 

end; 

end;  (*  The  End  of  NETWORK__LAYER  module  (Common  Linker)  *) 


APPENDIX  A. 2.1  ISO  IP  SUBMODULE 


(  *** 

(***  ISO_IP  Submodule  Specification 

^  *** 


*  *  *  ^ 
*  *  *  ^ 
*  **  'j 


body  ISO_IP_entity_body  for  ISO_IP_entity_type ; 


constant 


I  IP  MAX  SEGMENT  LENGTH  = 

I  NET  DELAY  =  . . . ; 

•  •  •  / 

(* 

ISO  Subnet  transmit  delay 

I  REASSEMBLY  DELAY  =  . . . ; 

(* 

Reassembly  delay  up_limit 

I  LIFETIME  :=  . . . ; 

(* 

Lifetime  for  PDUs  *) 

I_IP_ADDRESS  : = 

(* 

local  IP  address  *) 

I  SN  LOCAL  ADDR  : =  .  .  .  ; 

(* 

local  SubNet  address  *) 

I_SN_QOS  : = 

(* 

local  SubNet  QoS  *) 

I  NET  PROTOCOL  ID  =  129; 

(* 

1000  0001  in  binary  *) 

I_IP_VERSION  =  1; 

(* 

0000  0001  *) 

SEGMENT  PERMIT  =  128; 

(* 

1000  0000  *) 

MORE  SEGMENT  *  64; 

(* 

0100  0000  *) 

ERROR_REPORT  -  32; 

(* 

0010  0000  *) 

DATA  PDU  =  28; 

(* 

0001  1100  *) 

ERROR_PDU  =  1; 

(* 

0000  0001  *) 

FLAG_type  =  (OK,  EXPIRED,  INCOMPLETE); 


var 

I_IP_pair:  queue__type  of  IP_pair_type; 
mod_id:  octet; 
mes_id:  integer; 

cur_I_IP_pdu , errjpdu :  I_IP_PDU_type ; 
cur~IP_TP_mes :  IP_TP_message_type; 
cur_IP_mes:  IP_message_type; 
cur_IP_handler :  IP_message_handler_type; 
opt__ptr:  I_IP_option_type; 
s_ip_addr , d_ip_addr :  word_type ; 
s_route , r_route :  rout ing_opt ion_type ; 
I_SN_addr:  SNi_addr_type; 

pair_index:  integer; 
err__flag:  error_type; 
transit_time :  octet; 
pdu_error:  integer; 
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{  *** 

(***  Conunon  Procedures 

{  *** 

function  get_data_unit_id  :  short_word; 

(*  get  unique  Data_Unit_Id  *) 

begin 

with  I_IP_pair [pair . index]  do 
begin 

unitid  : =  unitid+1; 
get_data_unit_id  :=  unitid; 
end; 

end; 


function  get_option_length( pdu:  I_IP_PDU_type)  :  integer; 
(*  get  the  length  of  options  *) 


*  *  *  j 
***  j 

*  *  *  j 


begin 

get_option_length  :  =  pdu. length  -  pdu.destin_addr. length 

-  11  -  pdu.source_addr . length; 
if  (pdu. flags  and  SEGMENT_PERMIT)  then 

get_option_length  :=  get_option_length  -  6; 

end; 


function  conv_routing(opt_ptr :  I_IP_option_type)  : 

routing_option__type ; 

(*  convert  the  routing  direction  *) 


var 

i/j/l/kfin:  integer; 
opl:  /'routing_option_type; 


begin 

m  :=  opt_ptr.value[2]-l; 
opl  :=  d_create(m+2 ) ; 
opl. code  :=  SOURCE^ROUTING; 
opl. length  m; 
opl. flag  :■*  1; 
opl.ptr  :=  3; 

i  :*  3; 
j  :=  m-1; 
while  (i<m)  do 
begin 

1  :=  opt_ptr . value ( i ] ? 


(*  use  the  ptr  as  length  *) 


(*  type  1  as  complete  routing  *) 
(*  ptr  to  beginning  *) 

(*  copied  from  beginning  *) 

(*  copied  to  from  end: 3-1  *) 

( *  reverse  the  order  * ) 

(*  length  of  field  *) 
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js-j-1-1; 
opl . fields [ j ]  :=  1; 
for  k  : =  1  to  1  do 

opl . fields [ j+k]  :  =  opt_ptr. value [ i+k] ; 

end; 

conv_routing  :=  opl; 
end; 


procedure  one_segment( pdu:  I_IP_PDU_type) ; 
(*  output  one  IP_PDU  *) 

var 

i,j,k,leng:  integer; 
s:  data_type; 


begin 

with  pdu  do 
begin 

net_protocol_id  :=  I_NET_PROTOCOL_ID; 

version  :=  I_IP_VERSION; 

seg_length  :=  length  +  d_length( data ) ; 

leng  :  =  get_option_length(pdu) ; 
opt_ptr  :=  "option; 

s_route  :=  d_null;  (*  looking  for  SOURCE_ROUTING  *) 
while  (  ( s_route*d__null)  and  (leng>0))  then 
if  (opt_ptr.code=SOURCE_ROUTING)  then 

s_route:=d_gets(opt_ptr, l,opt_ptr . length+2 ) ; 
else 
begin 

leng  :=  leng  -  opt_ptr. length; 

opt__ptr  :=  "opt_ptr .  value[opt_ptr .  length+1  ] ; 

end; 

if  ( s_route=d_null )  then 
s_route  : = 

conv_routing{ I_IP_pair .buf [pair_index] .r_routing) ; 
k  :=  s_route.ptr  -  2;  (*  pointer  to  field  *) 

j  :=  s_route. fields [k] ;  (*  the  length  *) 

s  :=  d_gets ( s_route . fields ,  k+1 ,  j);  (*  get  field  *) 

I_SN_addr  :  =  trans_SN_addr ( s ) ;  (*  translate  to  SN_addr  *) 
opt_ptr . value [ 2 ]  : 3  opt_ptr . value [ 2 ]  +  j  +  1; 

(*  modify  the  pointer  *) 

checksum  :=*  0; 

set_checksum  (pdu,  length,  7); 
end” 

output  NET_INi. I_IP_PDUreq  (I  SN_addr, 

I~SN_LOCAL_ADDR, 

I_SN_QOS , 
pdu ) ; 

end; 
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procedure  error_pdu  (err:  error_type; 

ptr,leng:  integer; 
pdu:  I_IP_PDU_type ) ; 

( *  send  an  Error_Report  pdu  * ) 

var 

opt_ptr:  I_IP_option_type; 

begin 

opt_ptr  :=  d_create(4); 
opt_ptr.code  :=  ERROR_REASON ; 
opt_ptr . length  :=  2; 

°pt_ptr . value [ 1 ]  :=  err; 

°pt_ptr . value ( 2 ]  :=  ptr; 

d_append(opt_ptr , I_IP_pair .buf [pair_index] .r_routing) ; 

with  err_pdu  do  ( *  Make  ERROR  PDU  * ) 

begin 

lifetime  :  =  I_LIFETIME; 

flags  :=  (pdu. flags  and  SEGMENT_PERMIT)  or  ERROR_PDU; 
destin_addr . length  :=  pdu . source_addr . length; 
destin_addr .addr  :=  pdu.source_addr.addr; 
source_addr. length  :=  4; 
source_addr . addr  : =  I_I P_ADDRESS ; 
option  :=  opt_ptr; 

length  :=  11  +  destin_addr . length  +  source_addr . length 
+  d_length ( option ) ; 
data  :*  d_gets(pdu,  1,  leng) ; 
if  (flags  and  SEGMENT_PEMIT )  then 
begin 

length  :=  length  +  6; 
data_unit_id  :=  get_data_unit_id( ) ; 
seg_offset  :=  0; 

total_length  :=  length  +  d_length(data) ; 
end; 

one_segment ( err_pdu ) ; 
end; 

end; 


function  pair_match  :  integer; 

(*  match  the  I_IP_pair  with  s/d_ip_addr, 
set  and  return  the  index  *) 

var 

i,j,k,leng:  integer; 
t:  word_type; 

begin 
j  s-  0; 
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for  i  :=  1  to  I_IP_pair . last  do 

with  I_IP_pair . buf [ i ]  do 

if  ((s_IP_addr  =  s_ip_addr) 
(d_IP_addr  =  d_ip_addr) ) 
j  :=  i; 


(*  look  for  the  pair  with 
same  IP_address  info  *) 

and 

then 


if  (( j<>0)  and  (mod_id=0))  then  (*  matched  *) 

mod_id  :=  I_IP_pair . buf [ j ] .module/16 ; 
else  if  ( ( j < >0 )  and  (mod_id<>0)  and  (*  matched  *) 

( I_IP_pair . buf [ j ] .module/16=0 ) )  then 
I_IP_pair . buf [ j ] .module  :=  mod_id*16  +  i_module_id; 
else  if  ( j  =0 )  then  (*  need  fill  in  new  IP_pair  entry  *) 
begin 

if  ( I_IP_pair . last<MAX_QUEUE)  then 
begin 

I_IP_pair . last  :=  I_IP_pair . last+1 ; 

j  :=  I_IP_pair . last ; 

end; 

else  (*  no  empty  slot  *) 

begin 

t  :=  cur_time( ) ; 

for  i  : =  1  to  I_IP_pair . last  do 

if  ( I_IP_pair . buf [ i ] . timestampct )  then 
begin 
j  :=  i; 

t  :=  I_IP_pair.buf[i] .timestamp; 
end; 

pair_index  : =  j; 

for  k  :=  1  to  segment_que . last  do 

(*  clean  reassembly  queue  by  Error/Report  *) 
with  segment_que . buf [k]  do 

error_pdu( CONGESTION,  0,  pdu. length,  pdu); 

(*  send  Error /Report  *) 

end; 

with  l_IP_pair . buf [ j ]  do  (*  fill  in  *) 

begin  (*  use  empty/oldest  slot  *) 

module  =  mod_id  *  16  +  i_module_id; 
s_IP_addr  :=  s__ip_addr; 
d_IP_addr  : =  d~ip_addr; 
s_routing  :=  d^null; 
d_routing  :=  d^null; 
rcv_mes_que . last  :=  0; 
send_mes_que . last  :=  0; 
segment_que . last  :=  0; 
timestamp  =  cur_time( ) ; 
end;  (*  with:  fill  in  *) 
end;  (*  if  j=0  *) 


pair_index  :=  j; 
pair_match  :=  j; 
end; 
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^  *** 
(  *** 
( *** 


initialization 


***  j 
*  *  *  j 
*** ) 


initialize 

pdu_error  : =  0 ; 
I_IP_pair . last  :=  0; 

end; 


(***  ***) 

(***  State  Transition  ***) 

I***  ***) 


trans 

when  NET_INi . I_IP_PDUind  (*  from  ISO  subnetwork  *) 

var 

i, ii, j ,k, leng, total:  integer; 
t :  word_type ; 
pdul:  I_IP_PDU_type; 
flag:  FLAG_type ; 


begin 

transit_time  :=  cur_time(); 
cur_I_IP_pdu  : =  packet; 

if  (cur_I_IP_pdu.source_addr.length>4)  then 

pdu_error  :=  pdu_error+l;  (*  PDU  dropped  *) 

else  if  (cur_I_IP_pdu.destin_addr .length>4)  then 
pdu_error  :  =  pdu_error+lJ  (*  PDU  dropped  *) 

else 

begin 

s_ip_addr  :=  cur__I_IP_pdu.source_addr.addr; 

d_ip_addr  : =  cur~I~IP_pdu.destin_addr.addr; 

mod_id  : =  0; 

j  :=  pair_match( ) ; 

err_flag  :*  N0_ERR0R; 

s_route  : =  d_null; 

r_route  :=  d_null; 

with  cur_I_IP_pdu  do 

with  I_IP_pair .buf ( j ]  do 
begin 

if (chk_checksum(cur_I_IP_pdu, length) = false)  then 
err_f lag  :=  INCORRECT_CHECKSUM; 

else 

begin 
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lifetime  :=  lifetime  -  I— LIFETIME ; 
leng  :=  get_option_length( cur_I_IP_pdu) ; 
opt_ptr  :=  "'option; 
while  (leng>0)  then 

if  (opt_ptr .code=SOURCE_ROUTING)  then 
begin 

s_rou te : =d_gets ( opt_pt r , 1 , opt_pt r . leng th+2 ) ; 

s_routing  :=  s_route; 

end; 

else  if  (opt_ptr .code=RECORD_ROUTING)  then 
begin 

r_route  :=  conv_routing( opt_ptr ) ; 

r_routing  :=  r_route; 

end; 

else 

begin 

leng  : =  leng  -  opt_ptr . length; 

opt_ptr  :=  ~opt_ptr . value[opt_ptr . length+1 ] ; 

end; 

end; 

if  ( (err__f  lag=NO_ERROR)  and  ( lifetime<=0 ) )  then 
err_f lag  :=  LIFETIME_EXPIRED_IN_TRANSIT; 
else  if ( ( err_f lag=NO_ERROR)  and  ( s_route=d_null ) )  then 
err_f lag  :=  S_ROUTING_UNSPECIFIED; 

if  ( err_f lag< >NO_ERROR )  then  (*  send  Error/Report  *) 
begin 

error_pdu(err_f lag,  1,  length,  cur_I_IP_pdu ) ; 
pdu_error  :=  pdu_error+l;  (*  PDU  dropped  *) 

end; 
else 

begin  (*  handle  segment  *) 

flag  :=  OK; 
ii  0; 

if  (flags  and  SEGMENT_PERMIT=0 )  then 
begin 

pdul  :=  cur_I_IP_pdu;  (*  no  segmentation  *) 
total  :=  seg__length; 
k  :=  total; 
end; 

else 

begin 

total  :=  total_length; 

i  :=  1; 

while  ( ( i<segment_que . last )  and  (data_unit_id 

<segment_que . buf [ i ] . pdu . data_unit_id ) )  do 
i  :=  i  +  1; 

ii  :=  i; 
k  :  =  0; 

while  ( ( f lag=0K)and  ( i=<segment_que . last )  and 
(k<total)  and  (data_unit_id 

=segment_que .buf [ i] . pdu . data_unit_id) )  do 
with  segment_que .buf [i]  do 
begin 

if  ( seg_of f set=k)  then  (*  of  cur_I_IP_pdu  *) 
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begin 

if  (k=0)  then 

pdul  :=  cur_I_IP_pdu ; 

else 

d_append(  pdul  .data,  data); 
k  :=  k+seg_length-length; 

(*  Length  of  data  *) 

end; 

if  (pdu. lifetime<=cur_time( ) -  time)  then 
flag  :=  EXPIRED; 
else  if  (pdu.seg_of fset>k)  then 
flag  :=  INCOMPLETE; 

else 

begin 

if  (k=0)  then 

pdul  :=  segment_que . buf [ i ] ; 

else 

d_append( pdul .data, pdu. data; 
k  :=  k+pdu . seg_length-pdu . length ; 
end; 

if  (flag=OK)  then 
i  :=  i+1; 

else  (*  stop  *) 

i  : =  segment_que . last+1 ; 
end;  (*  while  *) 
i  :=  ii; 

end;  (*  else  SP  *) 

if  (((flag=OK)  and  (k<total))  or  (*  miss  last  seg.*) 
( flag= INCOMPLETE )  then 

begin  ( *  PDU  is  not  complete  yet ,  queueed  * ) 
for  k  :=  i  to  segment_que . last  do 

segment_que .buf [ i+1 ]  :=  segment_que . buf [ i ] ; 
segment_que . buf [i] .pdu  :=  cur_I_IP_pdu; 
segment_que.buf [i] .time  :=  cur_time( ) ; 
segment_que . last  : =  segment_que .last+1 ; 
end; 

else  if  (i>0)  then  (*  need  to  extract  segments 

expired/reassemblied  *) 

while  ( ( i<segment_que . last )  and  ( data_unit_id= 
segment_que . bu f [ i ] . pdu . da ta_uni t_id ) )  do 
begin 

exqueue ( segment_que ,  i ) ; 

i  :=  i+1; 

end; 

if  ( f lag=EXPIRED)  then 

error_pdu ( LIFETIME_EXP IRED_IN_REASSEMBLY , 

1,  length,  cur_I_IP_pdu) ; 
else  if(k=total)  then 
begin 

with  cur_IP_TP_mes  do 
begin 

module  :=  I_IP_pair .but [ j ] .module; 
mes_id  :=  mes_id  +  1; 
if  (mes_id*0)  then 
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mes_id  :=  1; 
message  :  =  mes_id; 
s_IP_addr  :=  s_IP_addr; 
d_IP_addr  :=  d_IP_addr; 
data  :=  pdul. data; 
end; 

output  NET_OUTi  .  I_IP_PDUind  ( cur__IP_TP_mes  )  ; 

with  cur_IP_mes  do 

begin  (*  make  GW  packet  *) 

module  :=  I_IP_pair .module; 
message  :=  mes_id; 
source_addr  :=  s_IP_addr; 
destin_addr  :=  d_IP_addr; 
lifetime  :=  pdul . lifetime 

-  (cur_time( ) -transit_time) ; 
option  :=  pdul. option; 
end; 

output  NET_GWi . IP_MESind  ( cur_IP_mes ) ; 

with  cur_IP_handler  do 

begin  (*  make  IP_message_handler  *) 

message  :=  mes_id; 

lifetime  :=  pdu . lifetime; 

option  :=  pdu. opt ion; 

end; 

enqueue  ( rcv_mes_que ,  cur_IP_handler ) ; 

end;  (*  if  flag  *) 
end;  (*  else  err_flag  *) 

timestamp  :=  cur_time; 
end;  (*  with-with  *) 
end;  (*  else  *) 

end; 
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(*  from  GW  common  linker  *) 


trans 

when  NET_GWi . IP_MESreq 
var 

j,leng:  integer; 

begin 

cur_IP_mes  :=  packet; 
with  cur_IP_mes  do 
begin 

mod_id  :=  module/ 16  +  (module  mod  16) *16;  — 

d_ip_addr  :=  source_addr; 
s_ip_addr  :=  destin_addr; 

j  :=  pair_match( ) ;  _ 

with  I_IP_pair . buf ( j ]  do 
begin 

s_route  :=  s_routing; 
r_route  :=  r_routing; 

if  ( ( s_route=d_null )  or  ( r_route=d_null ) )  then 

begin  — 

opt_ptr  : =  ^option; 

leng  :  =  d_length( option) ; 

while  (leng>0)  then  _ 

if  ( ( r_route=d_null )  and 

(opt_ptr .code=SOURCE_ROUTING) )  then 
begin 

r_route:=  conv_routing(opt_ptr ) ; 

r_routing  :=  r_route; 

end; 

else  if  ((s  route=d_null )  and  — 

( opt_ptr . code=RECORD_ROUTING ) )  then 

begin 

s_route  :=  d_gets(opt_ptr,  l,opt_ptr .  length+2l_; 

s_routing  :=  s_route; 

end; 

else 

begin 

leng  :=  leng  -  opt_ptr . length; 
opt_ptr  :=  ~opt_ptr .  value (opt__ptr .  length+1  ] ; 
end;  — 

end;  (*  if  *) 
with  cur_IP_handler  do 

begin  ~  (*  make  IP_message_handler  *)  — 

message  :=  mes_id; 
lifetime  :=  pdu. lifetime; 

option  :=  pdu. option;  _ 

in_time  :=  cur_time(); 

end; 

enqueue  ( send_mes_que,  cur_IP_handler) ; 
timestamp  :=  cur_time;  ~ 

end;  (*  with  I_IP_pair . buf [ j ]  *) 
end;  (*  with  cur_IP_mes  *) 

end;  ~  — 
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(*  from  TP-4  *) 


trans 

when  NET_OUTi . I_IP_PDUreq 
var 

i,j,k,n:  integer; 

handler:  IP_message_handler_type; 

ip_data:  data_type;~ 


begin 

cur_IP_TP_mes  :=  packet; 
with  cur_IP_TP_mes  do 
begin 

mod_id  :=  module/ 16  +  (module  mod  16)  *16; 
mes_id  :=  message; 
s_ip_addr  :=  d_IP_addr; 
d_ip_addr  :=  s_IP_addr; 

j  :■  0; 

for  i  :*  1  to  I_IP_pair . last  do 
with  I_IP_pair . buf [ i ]  do 

if  ( ( s_ip_addr=s_IP_addr )  and 
(d_ip_addr=d_IP_addr ) )  then 
j  :=  i? 


if  (j=0)  then 

pdu_error  :=  pdu_error+l; 

(*  It  is  supposed  to  have  a  match  here 
because  even  if  the  IP_module  at  the 
gateway  side  initiated  the  session,  the 
IP_message  has  been  transferred  over 
faster  to  establish  an  entry  earlier.  *) 

else 

with  I_IP_pair . buf [ j ]  do 
begin 

pair_index  : =  j ;  (*  global  *) 

k  :=  0; 

if  (mes_id<>0)  then 

for  i  :=  1  to  send_mes_que . last  do 

if  ( send_mes_que . buf [ i ] .message=mes_id )  then 
k  :  =  i  ; 
if  (k=Q)  then 

k  :=  1;  (*  if  no  match,  use  1st  one  *) 

handler  :=  exqueue ( send_mes_que,  k) ; 
with  cur_I_IP_pdu  do 
begin 

destin_addr. length  :=  4; 
destin_addr . addr  :=  s_ip_addr; 
source_addr . length  :=  4; 
source_addr . addr  : =  d_ip_addr ; 
flags  :=  ERROR_REPORT  or  DATA_PDU ; 
option  :=  handler . option; 
lifetime  :=  handler . lifetime 

-  (cur_time( )  -  handler . in_time) ; 
length  :=  d_length( option)  +  19; 
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data  :=  cur_IP_TP_mes .data; 

(*  segmentation  &  output  *) 
n  :=  d_length( data ) ; 

if  (n  >  I_IP__MAX_SEGMENT_LENGTH )  then 
begin 

length  :=  length+6; 

flags  :=  flags  or  SEGMENT_PERMIT; 

data_unit_id  :  =  get_data_unit_id; 

seg_offset  :=  0; 

total_length  :=  length  +  n; 

ip_data  :=  data; 

i  :  =  1; 

while  (n>i*I_IP_MAX_SEGMENT_LENGTH)  do 
begin 

flags  :=  flags  or  MORE_SEGMENT; 
seg_offset  :=  seg_offset  + 

I_IP_MAX_SEGMENT_LENGTH; 
data  :=  d_gets ( ip_data , 

( i-l)*I_IP_MAX_SEGMENT_LENGTH+l 
I_IP_MAX_SEGMENT_LENGTH) ; 
one_segment ( cur_I_IP_pdu ) ; 
i  :=  i+1; 

n  :=  d_length( ip_data) ; 
end; 

flags  :«  flags  and  (not  MORE_SEGMENT) ; 
data : =d_gets ( ip_data , 

( i- 1 ) *  I _ I P_MAX_S E GME NT_LE N GT H  + 1 , 

d  length ( ip_data ) 

-I_IP_MAX_SEGMENT_LENGTH ) ; 
end;  (*  if  n  >  *) 

one_segment ( ) ; 

end;  (*  with  cur_I_IP_pdu  *) 
timestamp  :=  cur_time; 
end;  (*  with  I_IP_pair .buf [ j ]  *) 
end;  (*  with  cur_IP_TP_mes  *) 
end;  (*  trans  *) 

end;  (*  of  ISO_IP_entity_body  *) 
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APPENDIX  A. 2. 2  DDN_IP  SUBMODULE 

(***  ***) 
(***  DDN  IP  Submodule  Specification  ***) 

(***  "  ***) 
body  DDN  IP  entity  body  for  DDN  IP  entity  type; 


constant 

D_IP_MAX_SEGM£NT_LENGTH  =  . . 
D_NET_DELAY  =  . . . ; 
D_REASSEMBLY_DELAY  = 
D_LIFETIME  :=  .  ..; 
D_IP_HOST_ADDRESS  := 
D_Ip_NET_ADDRESS  :=  ...? 

D_SN_LOCAL_ADDR  : =  .  .  .  ; 
D_SN_QOS  : = 

HOST_A_MASK  =  2**24-l; 
HOST_B_MASK  =  2** 16-1; 
HOST_C_MASK  =  2**8- 1; 

NET_A_MASK  =  2 **31-1; 
NET_B_MASK  *  2**30- 1; 
net_C_MASK  =  2 **29-1; 

NET_A_SHIFT  *  2**24; 
NET_B_SmFT  =  2**16; 
NET_C_SHIFT  =  2**8; 

CLASS_A_FLAG  *  2**31; 
CLASS_B_FLAG  =  2**31+2**30; 
CLASS_C_FLAG  =  2**31+2**30+2* 

D_IP_VERSION  *  4; 

DONT_FRAGMENT  =  64; 
MORE_FRAGMENT  =  32; 

ICMP_PROTO  =  1; 

OPT I ON_C OP I E D_MAS K  *  128; 

0  PT I ON_C LAS S _MAS K  =  96; 
OPTION_NUMBER_MASK  =  31; 

OPTION_CLASS_SHIFT  =  32; 

CLASS_CONTROL  =  0; 

CLASS  MEASURE  =  2; 


(*  DDN  Subnet  transmit  delay  *) 

(*  Reassembly  delay  up_limit  *) 

(*  Lifetime  for  PDUs  *) 

(*  local  IP  host  address  *) 

(*  local  IP  net  address  *) 

(*  local  SubNet  address  *) 

(*  local  SubNet  QoS  *) 

(*  mask  for  CLASS  A  host  addr  *) 

(*  mask  for  CLASS  B  host  addr  *) 

(*  mask  for  CLASS  C  host  addr  *) 

(*  mask  for  CLASS  A  net  addr  *) 

(*  mask  for  CLASS  B  net  addr  *) 

(*  mask  for  CLASS  C  net  addr  *) 

(*  r-shift  for  CLASS  A  net  addr  *) 

(*  r-shift  for  CLASS  B  net  addr  *) 

(*  r-shift  for  CLASS  C  net  addr  *) 

(*  CLASS  A  host  addr  limit  *) 

(*  CLASS  B  host  addr  limit  *) 

*29;  (*  CLASS  C  host  addr  limit  *) 


(*  protocol  field  *) 

(*  copied  flag  in  opt_code  *) 
(*  option  class  in  opt_code  *) 
(*  option  number  opt_code  *) 


(*  option  class  *) 
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OPT_END  =0;  (*  option  number  *) 

N0_0P  =  1; 

SECURITY  =  2; 

L_SOURCE_ROUTING  =  3; 

TIMESTAMP  =  4; 

RECORD_ROUTING  =  7; 

STREAM_ID  =  8; 

SOURCE_ROUTING  =  9; 


ICMP_ECHO_REPLY  =0;  (*  ICMP  type  *) 

ICMP_DESTIN_UNREACHABLE  =  3; 
ICMP_SOURCE_QUENCH  =  4; 

ICMP_REDIRECT  =  5; 

ICMP_ECHO  =  8; 

I CMP_T I ME_EXC E E DE  D  =  11; 

ICMP_PARAM_PROBLEM  =  12; 

1CMP_TIMESTAMP  =  13; 

ICMP_TIMESTAMP_REPLY  =  14; 

ICMP_INFO_REQUEST  =  15; 

ICMP_INFO_REPLY  =  16; 

I CMP_NET_UNREACHABLE  =0;  (*  ICMP  code  *) 

I CMP_HOST_UNREACHABLE  =  1; 
ICMP_PROTO_UNREACHABLE  =  2; 
ICMP_PORT_UNREACHABLE  =  3; 
ICMP_FRAGMENT_FAILED  =  4; 
ICMP_SOURCE_ROUTE_FAILED  =  5; 

ICMP_LIFETIME_EXCEEDED  *  0; 

I CMP_RE AS S EMBL Y  EXCEEDED  =  1; 


FLAG_type  =  (OK,  EXPIRED,  INCOMPLETE,  COMPLETE); 


type 

ICMP_type  *  record 
typ:  octet; 
code:  octet; 
checksum:  short_word; 
data :  data__type  ; 
end; 
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var 


D_IP_pair:  queue_type  of  IP_pair_type; 
mod_id:  octet; 
mes_id:  integer; 

cur_D_I P_pdu , er r_pdu :  D_ I P_PDU_type ; 
cur_IP_TP_mes :  IP_TP_message_type; 
cur_IP_mes:  IP_message_type; 
cur_IP_handler :  IP_message_handler_type ; 
opt_ptr:  D_IP_option_type ; 
s__hos  t_addr , d_hos t_addr :  word_type ; 
s_net_addr , d_net_addr :  word_type ; 
s_ip_addr ,d_ip_addr :  word_type; 
host_mask,net_mask:  word_type; 
net_shift:  word_type; 
s_route, r_route:  option_type; 

D_SN_addr:  SNi_addr_type ; 

ICMP_ptr :  ^ ICMP_type ; 

pair_index:  integer; 
err_flag,err_code:  octet; 
transit_time:  octet; 

pdu_errors  integer; 
icmp_unreachable :  integer; 
icmp_quench:  integer; 
icmp_exceeded :  integer; 
icmp_parameter :  integer; 
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^  *  *  * 
j  *  *  * 
|  *  *  * 


Common  Procedures 


*  *  *  j 
*** ) 

*  *  *  ^ 


function  trans_d_ip_addr ( addr :  word_type)  :  word_type;  primitive; 
(*  translate  DDN__IP  address  to  GW_IP  address  *) 

function  trans_g_ip_addr { addr :  word_type)  :  word_type;  primitive; 
(*  translate  GW_IP  address  to  DDN_IP  address  *) 

function  trans_d_lifetime( lifetime:  octet)  :  octet;  primitive; 

(*  translate  DDN_IP  lifetime  to  GW_IP  lifetime  *) 

function  trans_g_lifetime( lifetime:  octet)  :  octet;  primitive; 

(*  translate  GW_IP  lifetime  to  DDN_IP  lifetime  *) 

function  trans_d_option{ var  opt__length:  integer; 

option:  data_type; 

pdu:  D_IP__PDU_type)  :  data_type;  primitive 
(*  translate  DDN_IP  options  to  GW_IP  options  *) 

function  trans_g_option( var  opt_length:  integer; 

option:  data_type; 

pdu:  D_IPJPDU_type)  :  data_type;  primitive 
(*  translate  GW_IP  options  to  DDN_IP  options  *) 

(*  NOTICE  the  differences  of  the  options: 

PRECEDENCE,  DELAY,  THROUGHPUT,  and  RELIABILITY  of  DDN-IP 
are  in  the  IP  header,  while  ISO-IP  keeps  them  in  options  *) 


function  one_option_length(code:  octet)  :  integer;  primitive; 
(*  get  the  length  of  one  DDN-IP  option  *) 
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function  conv_routing(opt_ptr :  D_IP_option_type)  : 

routing_option_type;  primitive; 

(*  convert  the  routing  direction 

between  the  SOURCE  ROUTING  and  RECORDED  ROUTING  *) 


procedure  copy_options(pdu:  D_IP_PDU_type ) ;  primitive; 

(*  copy  options  according  to  COPIED  flag  in  options 
for  those  PDUs  with  offset>0  *) 


procedure  send_ICMP  (err_type,  err_code:  octet;  pdu:  D_IP_PDU_type) ; 

primitive; 

(*  send  an  ICMP  for  echo  *) 


function  get_data_unit_id  :  short_word; 

(*  get  unique  Data_Unit_Id  *) 


begin 

with  D_IP_pair [pair . index]  do 
begin 

unitid  :=  unitid+1; 
get_data_unit_id  :=  unitid; 
end; 

end; 


function  get_option_length{ pdu :  D_IP_PDU_type)  :  integer; 
(*  get  the  length  of  options  *) 

begin 

get_option_length  :=  ( pdu . I_length  -  5)  *  4; 
end; 


function  opt_num ( code :  octet)  :  integer; 

(*  get  the  option  number  from  the  option  code  *) 


begin 

opt_num  :*  code  and  OPTION—NUMBER_MASK ; 
end; 


procedure  one_segment ( pdu :  D_IP_PDU_type) ; 
(*  output  one  IP_PDU  *) 

var 

i, j ,k, leng, length:  integer; 
s :  word_type ; 


begin 

with  pdu  do 
begin 

length  :=  ( I_length  and  15)  *  4; 

I_length  :=  ( I_length  and  15)  +  D_IP_VERSI0N*16; 
tot_length  :=  length  +  d_length(data) ; 

leng  :=  get_option_length(pdu) ; 
opt_ptr  :  =  ''option; 


s_route  :=  d_null;  (*  looking  for  SOURCE_ROUTING  *) 
while  ( ( s_route=d_null )  and  (leng>0))  then 

if  (opt_num(opt_ptr . code ) =SOURCE_ROUTING)  then 
s_route:=d_gets(opt_ptr, l,optjptr . length) ; 
else 
begin 

k  :  =  one_option_length(opt_ptr .code) ; 
leng  :=  leng  -  k; 
opt_ptr  :  =  ~opt__ptr  +  k; 
end;  " 

if  ( s_route=d_null )  then 
s_route  := 

conv_routing( D_IP_pair . buf [pair_index] . r_routing) ; 
k  ;*  s_route . value [ 1 ]  (*  get  pointer  to  field  *) 

s  :=  get_word( ~s_route . value[ k-2 ] ,  4); 

(*  get  the  IP  adress  *) 

D_SN_addr  :  =  trans_SN_addr ( s ) ;  (*  translate  to  SN_addr  *) 
opt_ptr . value [ 1 ]  :=  opt_ptr . value [ 1 ]  +  4; 

(*  modify  the  pointer  *) 

checksum  :  =  0; 

set_checksum  (pdu,  length,  11); 
end; 

output  NET_INi.D_IP_PDUreq  (D_SN_addr, 

D_SN_LOCAL_ADDR , 

D_SN_QOS , 
pdu )  ; 

end; 


function  pair_match  :  integer; 

(*  match  the  D_IP_pair  with  s/d_ip_addr, 
set  and  return  the  index  * ) 

var 

i,j,k,leng:  integer; 
t:  word_type; 


begin 
j  : 3  0  ; 

for  i  :=  1  to  D_IP_pair . last  do  (*  look  for  the  pair  with 

same  IP_address  info  *) 

with  D_IP_pair.buf [i]  do 

if  ((s_IP_addr  =  s_ip_addr)  and 
(d~IP_addr  =  d_ip_addr) )  then 
j  :=  i? 

if  ( ( j < > 0 )  and  (mod_id=0))  then  (*  matched  *) 

mod_id  :*  D_IP_pair . buf [ j ] .module/ 16 ; 
else  if  ( ( j<>0 )  and  (mod_id<>0)  and  (*  matched  *) 

( D_IP_pair . buf [ j ] .module/ 16=0 ) )  then 


135 


D_IP_pair . buf [ j ] .module  :=  mod_id*16  +  i_module_id; 
else  if  (j=0)  then  (*  need  fill  in  new  IP_pair  entry  *) 
begin 

if  (D_IP_pair.last<MAX_QUEUE)  then 
begin 

D_IP_pair . last  :  =  D_IP_pair . last+1 ; 
j  :=  D_IP_pair . last ; 
end ; 

else  (*  no  empty  slot  * ) 

begin 

t  :=  cur_time( ) ; 

for  i  :=  1  to  D_IP_pair . last  do 

if  (D_IP_pair . buf [i] . timestamp<t )  then 
begin 
j  s-  i; 

t  :=  D_IP_pair .buf [ i ]. timestamp; 
end; 


pair_index  :=  j; 

for  k  :=  1  to  segment_que. last  do 

(*  clean  reassembly  queue  *) 
with  segment_que . buf [k]  do 

send_ICMP ( ICMP_SOURCE_QUENCH ,  0 ,  pdu ) ; 

(*  send  ICMP  to  report  pdu  lost 


end; 


*) 


with  D_IP_pair .buf [ j ]  do  (*  fill  in  *) 

begin  (*  use  empty/oldest  slot  *) 

module  =  mod_id  *  16  +  i_module_id; 
s_IP-addr  : =  s_ip_addr; 
d_IP_addr  :*  d_ip_addr; 
s_routing  : =  d~null; 
d_routing  :=  d_null; 
rcv_mes_que . last  j=  0; 
send_mes_que . last  : =  0 ; 
segment_que. last  :=  0; 
timestamp  *  cur_time{ ) ; 
end;  (*  with:  fill  in  *) 
end;  (*  if  j=0  *) 

pair_index  : *  j ; 
pair_match  :=  j; 
end; 
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^  *  *  * 
^  *** 
(  *** 


initialization 


*  *  *  ^ 
***  ^ 
*  *  * j 


initialize 

pdu_error  : =  0 ; 
icmp_unreachable  :=  0; 
icmp_quench  : =  0; 
icmp_exceeded  : =  0 ; 
icmpjparameter  : =  0 ; 

D_IP_pair • last  :=  0; 

end; 


(***  ***) 

(***  State  Transition  ***) 

j***  ***) 


trans 

when  NET_INi .  D__IP_PDUind  (*  from  DDN  subnetwork  *) 

var 

i , ii , j , k , leng , length , total :  integer ; 
t :  word_type ; 
pdul:  D_IP_PDU_type; 
flag:  FLAG_type; 


begin 

trans it_time  :=  cur_time(); 
cur_D_IP_pdu  :=  packet; 

s_ip_addr  : =  cur_D_IP_pdu . source_addr ; 

d_ip_addr  :=  cur_D_IP_pdu .destin_addr ; 

mod_id  : =  0 ; 

j  :=  pair_match( ) ; 

err_flag  :=  NO_ERROR; 

s_route  :=  d_null; 

r_route  : =  d_null; 

with  cur_D_IP_pdu  do 

with  D~IP_pair . buf [ j ]  do 
begin 

length  :=  ( I_length  and  15)  *  4; 
if (chk_checksum(cur_D_IP_pdu, length) =false)  then 
begin 

err_f lag  : =  ICMP_PARAM_PROBLEM; 
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err_num  : =  11; 
end; 

else 

begin 

lifetime  :=  lifetime  -  D_LIFETIME ; 
leng  :=  get_option_length(cur_D_IP_pdu) ; 
opt_ptr  s=  ''option; 
while  (leng>0)  then 

if  { opt_num ( opt_ptr . code ) ^SOURCE  ROUTING)  then 
begin 

s_route : =d_get s ( opt_ptr , 1 , opt_pt r . length ) ; 

s_routing  :=  s_route; 

end; 

else  if  ( opt_ptr . code=RECORD_ROUTING )  then 
begin 

r_route  :=  conv_routing(opt_ptr ) ; 

r_routing  :=  r_route; 

end; 

else 

begin 

k  :=  one_option_length ( opt_ptr . code ) ; 
leng  :=  leng  -  k; 
opt_ptr  :=  Aopt_ptr  +  k; 
end; 

if ( ( err_f lag=NO_ERROR)  and  ( lif etime<=0 ) )  then 
begin 

err__f lag  :=  ICMP__TIME_EXCEEDED; 
err~num  :=  ICMP_LIFETIME_EXCEEDED; 
end; 

else  if ( (err_flag=NO_ERROR)  and  ( s_route*d_null ) )  ther 
begin 

err__f lag  :=  ICMP_DESTIN_UNREACHABLE  ; 
err_num  :=  ICMP_SOURCE_ROUTING_FAILED; 
end; 

end; 

if  ( err_f lag< >NO_ERROR )  then  (*  send  Error/Report  *) 
begin 

send_ICMP(err_f lag,  err_code,  cur_D_IP_pdu) ; 
pdu_error  :=  pdu_error+l;  (*  PDU  dropped  *) 

end; 
else 

begin  ( *  handle  segment  * ) 

flag  :=  OK; 
ii  :=  0; 

if  ((flags  and  MORE_FRAGMENT=0 )  and 
(of f set=0 ) ) then 
begin 

pdul  :=  cur_D_IP_pdu;  (*  no  segmentation  *) 
k  :=»  tot  length  -  ( I_length  and  15)  *  4; 
flag  :=  COMPLETE; 
end; 

else 

begin 
i  :=  1; 
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while  ( ( i<segment_que . last )  and 

( id<segment_que . buf [  i  ]  . pdu . id) )  do 
i  :  -  i  +  1 ; 
ii  :=  i; 
k  :=  0; 

if  (offset=0)  then  (*  of  cur_D_IP_pdu  *) 

begin 

pdul  :=  cur_D_IP_pdu; 

k  :=  tot_length  -  ( I_length  and  15)  *  4; 
end; 

while  ((flag=0K)  and 

( i=<segment_que . last )  and 
{ id=segment_que .buf [ i] . pdu . id) )  do 

begin 

with  segment_que . buf [ i ]  do 
begin 

if  ( pdu . lifetime<=cur_time ( ) -  time)  then 
flag  :=  EXPIRED; 

else  if  (  k  <  pdu .of f set*8 )  then 
flag  :=  INCOMPLETE; 

else 

begin 

if  (k=0)  then 

pdu 1  : =  pdu ; 

else 

d_append ( pdu 1 . data , pdu . da t a ) ; 
length  :=  ( pdu . I_length  and  15 ) *4; 
k  :=  k  +  pdu. tot_length  -  length; 
end; 

end; 

if  (k=8*offset)  then  (*  of  cur_D_IP_pdu  *) 
begin 

d_append ( pdu 1 . data ,  data ) ; 
length  :=  ( I_length  and  15) *4; 
k  :=  k  +  tot_length  -  length; 
end; 

if  (flag=0K)  then 
i  :=  i+1; 

else  (*  stop  *) 

i  :=  segment_que . last+1 ; 
end;  (*  while  *) 
end;  (*  else  *) 

if  (((flag=0K)  and  ( i=segment_que . last) )  or 

(*  miss  last  seg.*) 

( flag= INCOMPLETE ) )  then 

(*  PDU  is  not  complete  yet  *) 
begin  (*  queue  cur_D_IP_pdu  *) 

for  k  :=  segment_que . last  to  ii  do 

segment_que . buf [k+1]  :=  segment_que . buf [kj ; 
segment_que .  buf  [  ii  ]  .  pdu  :=  cur__D_IP_pdu; 
segment”qvie .buf  [ii j  .time  :=  cur_time(); 
segment_que . last  :=  segment_que . last+1 ; 
end; 

else  if  (ii>0)  then  (*  need  to  extract  segments 

expired/reassemblied  *) 
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while  ( ( ii<segment_que . last )  and 

( id=segment_que . buf [ ii ] . pdu . id ) )  do 
begin 

exqueue ( segment_que ,  ii); 

ii  :=  ii+1; 

end; 

if  ( flag=EXPIRED)  then 

send_ICMP( ICMP_TIME_EXCEEDED, 

ICMP_REASSEMBLY_EXCEEDED, 
cur_D_IP_pdu ) ; 
else  if ( f lag=COMPLETE )  then 
begin 

with  cur_IP_TP_mes  do 
begin 

module  :  =  D_IP_pair .buf [ j ] .module; 
mes_id  :=  mes_id  +  1; 
if  (mes_id=0)  then 
mes_id  :=  1; 
message  :=  mes_id; 
s_IP_addr  : =  s_ip_addr; 
d_IP_addr  : -  d_ip_addr; 
data  :=  pdul.data; 
end; 

output  NET_OUTi . D_IP_PDUind  ( cur_IP_TP_mes ) ; 

with  cur_IP_mes  do 

begin  (*  make  GW  packet  *) 

module  :=  D_IP_pair .module ; 
message  : =  mes_id; 

source_addr  : =  trans_d_ip_addr ( s_ip_addr ) ; 
dostin_addr  :=  trans_d_ip_addr ( d_ip_addr ) ; 
lifetime  :=  trans_d_lifetime( pdul . lifetime) 
-  (cur_time( ) -transit_time) ; 
option  :=  trans_d_option ( pdul . option) ; 
end; 

output  NET_GWi . IP_MESind  ( cur_IP_mes ) ; 

with  cur_IP_handler  do 

begin  (*  make  IP_message_handler  *) 

message  :=  mes_id; 

lifetime  :=  pdu . lifetime; 

option  :=  pdu. option; 

end; 

enqueue  (  rcv_mes__que ,  cur_IP_handler )  ; 

end;  (*  if  flag  *) 
end;  (*  else  err_flag  *) 

timestamp  :=  cur_time; 
end;  (*  with-with  *) 

end; 
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(*  from  GW  common  linker  *) 


trans 

when  NET_GWi . IP_MESreq 
var 

j , leng, length:  integer; 


begin 

cur_IP_mes  :=  packet; 
with  cur_IP__mes  do 
begin 

mod_id  :=  module/ 16  +  (module  mod  16) *16; 
d_ip_addr  :=  trans_g_ip_addr ( source_addr ) ; 
s_ip_addr  :=  trans_g_ip_addr (destin_addr ) ; 
j  :=  pair_match( ) ; 
with  D_IP_pair . buf [ j ]  do 
begin 

s_route  :=  s_routing; 
r_route  :=  r_routing; 

if  ( ( s_route=d_null )  or  ( r_route=d_null ) )  then 
begin 

opt_ptr  :=  ^option; 
leng  :  =  d_length(option) ; 
while  (leng>0)  then 

if  ( ( r_route=d_null )  and 

( °pt_num( opt_ptr . code) =SOURCE_ROUTING) )  then 
begin 

r_route:=  conv_routing( opt_ptr ) ; 

r_routing  : =  reroute; 

end; 

else  if  ( ( s_route=d_null )  and 

( opt_ptr . code=RECORD_ROUTING ) )  then 

begin 

s_route  :=  d_gets(opt_ptr, lfopt_ptr. length)  ; 

s_routing  :=  s_route; 

end; 

else 

begin 

k  :=  one_option_length(opt_ptr .code) ; 
leng  : =  leng  -  k; 
optjptr  :=  ^opt_ptr  +  k; 
end; 

end;  (*  if  *) 
with  cur_IP_handler  do 

begin  (*  make  IP_message_handler  *) 

message  :=  mes_id; 

lifetime  : =  trans_g_lifetime ( cur_IP_mes . lifetime ) ; 
option  :=  trans_g_option(cur_IP_mes .option) ; 
in_time  :=  cur_time(); 
end; 

enqueue  ( send_mes_que ,  cur_IP_handler ) ; 
timestamp  :=  cur_time; 
end;  (*  with  D__IP_pair  .buf  (  j  ]  *) 
end;  (*  with  cur_IPjnes  *) 

end; 
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(*  from  TCP  *) 


trans 

when  NET_OUTi . D_IP_PDUreq 
var 

i, j ,  k,n:  integer; 

handler :  IP_message_handler_type ; 
ip_data :  data_type ; 


begin 

cur_IP_TP_mes  :=  packet; 
with  cur_IP_TP_mes  do 
begin 

mod_id  :=  module/ 16  +  (module  mod  16) *16; 
mes_id  :=  message; 
s_ip_addr  ;=  d_IP_addr; 
d_ip_addr  :=  s_IP_addr; 

j  :■  0; 

for  i  :=  1  to  D_IP_pair . last  do 
with  D_IP_pair.buf [i]  do 

if  ( ( s_ip_addr=s_IP_addr )  and 
(d_ipladdr=d_ip”addr ) )  then 
j  5=  i; 


if  ( j=0 )  then 

pdu_error  : =  pdu_error+l; 

(*  It  is  supposed  to  have  a  match  here 
because  even  if  the  IP_module  at  the 
gateway  side  initiated  the  session,  the 
IP_message  has  been  transferred  over 
faster  to  establish  an  entry  earlier.  *) 

else 

with  D_IP_pair .buf ( j ]  do 
begin 

pair_index  :=  j;  (*  global  *) 

k  :  =  0; 

if  (mes_id<>0)  then 

for  i  :=  1  to  send_mes_que . last  do 

if  (send__mes_que.buf  [i]  .message=mes_id)  then 
k  :=  i; 
if  ( ks0 )  then 

k  :=  l;  (*  if  no  match,  use  1st  one  *) 

handler  s=  exqueue ( send_mes_que,  k); 
with  cur_D_IP_pdu  do 
begin 

service  0; 

destin_addr  :=  s_ip_addr; 
source_addr  :=  d_ip_addr; 
id  : =  get_data_unit_id; 
flags  :=  0; 
offset  : =  0; 

protocol  :»  TCP_PROTOCOL; 
lifetime  :*  handler . lifetime 

-  (cur  time()  -  handler .in_time); 
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option  :=  handler .option; 

I_length  :  =  d_length( option ) /4  +  5; 
data  :=  cur_IP_TP_mes .data; 

(*  segmentation  &  output  *) 
n  :=  d_length(data) ; 

if  (n  >  D_IP_MAX_SEGMENT_LENGTH )  then 
begin 

ip_data  :=  data; 
i  :  =  1  * 

while  (n>i*D_IP_MAX_SEGMENT_LENGTH)  do 
begin 

flags  :=  flags  or  MORE_FRAGMENT; 
offset  :=  offset  +- 

D_IP_MAX_SEGMENT_LENGTH/8 ; 
data  :=  d_gets ( ip_data , 

( i-1 ) *D_IP_MAX_SEGMENT_LENGTH+ 1 , 
D_IP_MAX_SEGMENT_LENGTH) ; 
if(i=2)  then 

copy_options ( ) ; 
one_segment ( cur_D_IP_pdu ) ; 

i  :=  i+1; 

n  :=  d_length( ip_data ) ; 
end; 

flags  :=  flags  and  (not  MORE_FRAGMENT ) ; 
data : =d_gets ( ip_data , 

( i-1 ) *D_IP_MAX_SEGMENT_LENGTH+1 , 
d_length ( ip_data ) 

-D_IP_MAX_SEGMENT_LENGTH) ; 
end;  (*  if  n  >  *) 

one_segment( ) ; 

end;  (*  with  cur_D_IP_pdu  *) 
timestamp  : =  cur_time; 
end;  (*  with  D__IP_pair .  buf  [  j  ]  *) 
end;  (*  with  cur_IP__TP_mes  *) 
end;  (*  trans  *) 

end;  (*  of  DDN_IP_entity_body  *) 
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APPENDIX  A. 3  TRANSPORT  LAYER  MODULE  SPECIFICATION 


(***  ***) 

(***  TRANSPORT_LAYER  Module  Specification  ***) 

(*** 

body  TRANSPORT_LAYER_entity_body  for  TRANSPORT_LAYER_entity_type; 


constant 


MAX_CONN  =  .  .  .  ; 

(* 

(* 

CR  VAR  =  7; 

(* 

DC  VAR  =  6; 

(* 

DT  VAR  =  5; 

(* 

DTe  VAR  =  8; 

(* 

Max  Transport  Connections  *) 

position  of  varriable  part  *) 
for  CR,  CC,  DR  *) 
for  DC  *) 

for  DT,  ED,  AK,  EA,  ER  *) 
for  DTe,  EDe,  AKe,  EAe  *) 


EDCODE  =  1; 
EACODE  =  2; 
RJCODE  =  5; 
AKCODE  =  6; 
ERCODE  *  7; 
DRCODE  =  8; 
DCCODE  =  12; 
CCCODE  =  13; 
CRCODE  =  14; 
DTCODE  =  15; 

CLASS_0  =  0; 
CLASS_1  =  1; 
CLASS_2  =  2; 
CLASS_3  =  3; 
CLASS_4  =  4; 

CALINGCODE  *  193 
CALLEDCODE  =  194 
PDUSIZCODE  =  192 
VERSNOCODE  *  196 
SECURICODE  =  197 
CHKSUMCODE  =  195 
ADDLOPCODE  =  198 

ALTCLSCODE  =  199 
AKTIMECODE  =  133 
THRUPTCODE  =  137 
RESERRCODE  *  134 
PRIORTCODE  =  135 
TRNDELCODE  =  136 
REASSGCODE  =  139 


(  *  TPDU  code  * ) 


(*  Class  of  Transport  Service  *) 


{*  Calling  TSAP  ID  *) 

(*  Called  TSAP  ID  *) 

(*  max  TPDU  size,  7.. 13  =  128.. 8, 192  *) 
(*  version  No.,  value=l  *) 

(*  user-def  protection  parameter  *) 

(*  checksum,  in  CLASS_4  only  *) 

(*  additional  options, 

2: no  checksum,  l:use  ED  *) 

(*  alternative  Class  *) 

(*  short_word  of  max  ack  time,  in  ms  *) 
(*  throughput  *) 

(*  residual  error  *) 

(*  priority  *) 

(*  Transit  delay  *) 

(*  reassignment  time  *) 
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SUBSEQCODE  =138;  (*  sub-sequence  number  *) 

FLOCONCODE  =  140;  (*  flow  control  confirmation  *) 


R_not_specif ied  =0;  (*  reasons  *) 

R_TSAP_congestion  =  1; 
R_address_unknown  =  3; 

R_user_normal  =  128; 

Rjpeer_congestion  =  129; 
R_negotiation_f ailed  =  130; 
R_duplicate_src_ref  =  131; 
R_ref_mismatched  =  132; 
R_protocol_error  =  133; 

R_not_used  =  134; 

R_ref_overf low  =  135; 

R_CR_refused  =  136; 

R_not_used  =  137; 
R_invalid_hdr_param_length  =  138; 


type 


retrans_type  =  record 
timer  :  integer; 
count  :  integer; 
data  s  data_type ; 
end; 


(*  time  left  before  retrans  *) 
( *  count  of  retrans  *) 

(*  PDU  *) 


reorder_type  =  record 

seq  :  integer;  (*  sequence  number  for  re-order  *) 

data  :  data_type;  (*  PDU  *) 

end; 


TP_param_type 


(CALINGCODE, 
SECURICODE, 
AKTIMECODE, 
TRNDELCODE , 


CALLEDCODE,  PDUSIZCODE, 
CHKSUMCODE ,  ADDLOPCODE , 
THRUPTCODE ,  RESERRCODE , 
REASSGCODE ) ; 


VERSNOCODE , 
ALTCLSCODE , 
PRIORTCODE, 


TP_var  _part_type  =  record 

param_code  :  TP_param_type ;  (*  parameter  code  *) 

length  :  octet;  (*  length  indicator  *) 

value  :  data_type;  (*  parameter  value  *) 

end; 

(*  the  data  structure  defined  here  is  for  the 
variable  part  of  the  TPDU.  Some  kinds  of  TPDUs 
can  have  multiple  parameters  whose  total  length 
can  be  decided  indirectly  by  the  length  of  the 
TPDU  header.  *) 
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throughput_type  =  record 


(* 

maximum  * ) 

max_ 

AB  : 

integer; 

(* 

max . 

calling 

-  called 

*) 

min_ 

"AB  : 

integer; 

(* 

min . 

*) 

max_ 

"BA  : 

integer; 

(* 

max . 

called  - 

calling 

*) 

min_ 

~BA  : 

integer; 

(* 

min . 

*) 

(* 

average  * ) 

ave_ 

_AB  : 

integer; 

a_min_AB:  integer; 
ave_BA  :  integer; 
a_min_BA:  integer; 
end; 


residual_error_type  =  record 
target  :  integer; 
min_acc  :  integer; 
TSDU_size  :  integer; 
end; 


transit_delay_type  =  record 
target_AB  :  integer; 
max_AB  :  integer; 
target_BA  :  integer; 
max_BA  :  integer; 
end; 


TPDU_code_type  =  (EDCODE,  EACODE,  RJ\.JDE,  AKCODE,  ERCODE, 

DRCODE,  DCCODE ,  CCCODE,  CRCODE,  DTCODE ) ; 


TP_class_type  =  (CLASS_0,  CLASS_1,  CLASS_2 ,  CLASS_3 , 

CLASS_4 ) ; 


TP_reason_type  *  ( R_not_specif ied,  R_TSAP_congestion, 

R_address_unknown,  R_user_nonnal , 
R_peer_congestion,  R_negotiation_f ailed, 
R_duplicate_src_ref ,  R_ref_mismatched, 
R_protocol_error ,  R_not_used, 

R_ref_overf low,  R_CR_re fused, 

R_not_used,  R_invalid_hdr_param_length) ; 
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TPDU_message_type 
module  : 
message  : 
s_IP_addr  : 
d_IP_addr  : 
tpdu_code  : 
dst_ref  : 
src_ref  : 
class  : 

reason  : 
v_length  : 
varjpart  : 
d_length  : 
data  : 

end; 

( *  The  data  structure 
between  the  Transport 
common  linker  module. 


=  record 

octet;  ( 
octet;  ( 
word_type ;  ( 
word_type ;  ( 
TPDU_code_type;  ( 
short_word;  ( 
short_word;  ( 
TP_class_type;  ( 
TP_reason_type;  ( 
octet;  ( 
TP_var_part_type ;  ( 
integer;  ( 
data_type;  ( 


Module  Id  *) 

Message  Id  *) 
source  IP  address  *) 
destin  IP  address  *) 
TPDU  code  *) 

GW  desti_ref rence  *) 

GW  source_ref rence  *) 
Class  option  *) 
reason/re ject_cause  *) 
var_part  length  *) 
variable  part  *) 
data  length  *) 
user  data  *) 


defined  above  is  used  for  the  communication 
Layer  protocol-dependent  submodules  and  the 


One  point  to  notice  is  that  the  format  is  close  to  the  ISO  TPDU 
structure.  It  is  chosen  because  the  ISO  TP  data  structures  have 
more  capacity  than  those  of  DoD  TCP,  except  for  the  Urgent  Data. 
So  it  is  quite  reasonable  to  use  the  format  closer  to  the 
standard  one.  The  Urgent  Data  problem  will  be  solved  in  some 
strategic  way  such  as  using  the  Expedited  Data  to  transfer  the 
Urgent  Data. 

Another  point  to  notice  is  that  both  the  sequence  number  and  the 
credit  are  removed  from  the  data  structure.  The  reason  behind  is 
that  these  two  control  parameters  are  local  significant  only. 
Each  side  of  the  gateway  will  have  independent  control  over  them. 
*) 
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(  *** 
^  *  *  * 
^  *  *  * 


Module  Interaction  Points 


*  *  *  'j 

*  *  *  j 

*  *  *  j 


( *  TP  Transport  Gateway  Interaction  Point  (to  linker)  *) 


channel  TP_linker_primitives  (user,  provider); 
by  user: 

TP_MESreq  (message  :  TPDU_message_type ) ; 
by  provider: 

TP_MESind  (message  :  TPDU_message_type ) ; 


(***  ***) 

(***  Submodule  Definitions  ***) 

(***  ***) 


module  IS0_TP4_entity_type  process 

(NSi:  NCEP_primitives  ( user, provider ) ; 

TGi :  TP_linker_primitives  ( user , provider ) ; 


); 

export 

tp4_module_id:  integer; 
inet_sent:  integer; 
inet_rcved:  integer; 
inet_error:  integer; 
end; 


(*  ISO  TP  module  id  *) 

(*  packets  sent  to  ISO  IP  *) 

(*  packets  received  from  ISO  IP  *) 
(*  errors  in  packets  with  ISO  IP  * 


) 


module  DDN_TCP_entity_type  process 

( NSd:  NCEP_primitives  ( user , provider ) ; 

TGd:  TP_linker_primitives  (user , provider) ; 

); 


export 

tcp_module_id:  integer; 
dnet_sent:  integer; 
dnet_rcved:  integer; 
dnet_error:  integer; 
end; 


(*  DDN  TCP  module  id  *) 

(*  packets  sent  to  DDN  IP  *) 

(*  packets  received  from  DDN  IP  *) 
(*  errors  in  packets  with  DDN  IP  *) 


body  IS0_TP4_entity_body  for  IS0_TP4_entity_type;  external; 
body  DDN_TCP_entity_body  for  DDN_TCP_entity”type;  external; 
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^  *  *  * 
f  *** 

(  *** 


initialization 


***  j 

*  *  *  j 

*  *  *  j 


initialize 

init  IS0_TP4  with  IS0_TP4_entity_body ( ) ; 

attach  NSi  to  IS0_TP4.NSi;  (*  with  ISO  IP  *) 

connect  TGi  to  IS0_TP4.TGi; 

IS0_TP4 . tp4_module_id  :=  9; 

IS0_TP4 . inet_rcved  :=  0; 

ISO_TP4 . inet_sent  :=  0; 

ISO_TP4 . inet_error  :=  0; 

init  DDN_TCP  with  DDN_TCP_entity_body ( ) ; 
attach  NSd  to  DDN_TCP.NSd; 
connect  TGd  to  DDN_TCP . TGd ; 

DDN_TCP. tcp_module_id  : =  10; 

DDN_TCP . dnet_rcved  : =  0 ; 

DDN_TCP . dnet_error  : =  0 ; 

DDN_TCP . dnet_error  : =  0 ; 
end; 


(  *** 

(***  State  Transition 

( *** 

trans 

when  TGi .TP_MESind  (*  from  ISO_TP4  to  Common  Linker  *) 

begin 

output  TGd. TP_MESreq( packet ) ;  (*  send  to  DDN_TCP  *) 

end; 


(*  with  DON  IP  *) 


***  ) 
*  *  *  J 
***  } 


trans 

when  TGd . TP_MESind  (*  from  DDN_TCP  to  Common  Linker  *) 

begin 

output  TGi. TP_MESreq( packet ) ;  (*  send  to  ISO_TP4  *) 

end; 


end;  (*  The  End  of  TRANSPORT_LAYER  module  (Common  Linker)  *) 
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APPENDIX  A. 3.1  ISO  TP4  SUBMODULE 


(  ***  *** ) 

(***  ISO_TP4  Submodule  Specification  ***) 

( ***  *** ) 


body  IS0_TP4_entity_body  for  IS0_TP4_entity_type; 


( ***  *** ) 

(***  TP4  Interface  Interaction  Point  ***) 

(***  ***) 


(*  TP-4  State  Machine  Interaction  Point  *) 
channel  TP4_machine_primitives  (user,  provider); 
by  privider: 

TP4M_MESind  (message  :  IP_TP_message_type) ; 

(*  send  TPDUs  to  TP4_machine  *) 

by  user: 

TP4M_MESreq  (message  :  IP_TP_message_type) ; 

(*  TP4_machine  sends  TPDUs  out  *) 


(*  TP  Transport  Gateway  Interaction  Point  (to  linker  module)  *) 
channel  TP4__interface_primitives  (user,  provider); 
by  provider: 

TP4I_MESind  (message  :  IP_TP_message_type) ; 
by  user: 

TP4I_MESreq  (message  :  IP_TP_message_type ) ; 
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>  *  *  * 
^  * k 

^  *  *  * 


TP4  State  Machine  SubModule  Specification 


***  j 
*  *  *  ^ 
*  *  *  j 


module  TP4_machine_type  process 

(TP4M_I:  TP4_machine_primitives  (user); 

TP4M_0:  TP4_machine_primitives  (provider); 

TP4I_I:  TP4_interf ace_primitives  (user); 

TP4I_0:  TP4_interf ace_primitives  (provider); 
)  ? 

export 

state 
l_module 
g_module 
d_ip_addr 
s_ip_addr 
l_ref 
r_ref 
g_ref 
ex_f lag 
ch_f lag 
ed_f lag 
class 
end; 


body  TP4_machine_body  for  TP4_machine_type;  external; 


TP4  state  type; 

(*  connection  state  *) 

octet; 

(* 

local  module  id  *) 

octet; 

(* 

GW  module  id  *) 

word__type; 

(* 

destination  IP  address  *) 

word_type; 

(* 

source  IP  address  *) 

short_word; 

(* 

local  reference  *) 

short_word; 

(* 

remote  reference  *) 

short_word; 

(* 

gateway  cross  reference  *) 

boolean; 

(* 

extended  format  *) 

boolean; 

(  * 

checksum  flag  *) 

boolean; 

(* 

expedited  data  service  *) 

octet ; 

(* 

class  and  flags  *) 
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^  *  *  * 
(  *** 
^  *** 


variables  of  the  IS0_TP4_body 


**  *  ^ 

*  *  *  ^ 
*  *  *  ^ 


var 


total_conn 
conn_f lag 

TP4M 


integer;  (*  total  active  transport  conn  *) 
array  ( 1 .  . MAX__CONN ]  of  boolean; 

(*  slot  available  flag  *) 
array  [ 0 . . MAX_CONN ]  of  TP4_machine_type ; 

(*  instance  of  TP4_machine  *) 


cur_conn:  integer;  (*  cur  connection  reference  *) 

direction  :  direct ion_type ;  (*  cur  mes  flow  direction  *) 
cur_mod_id  :  octet;  (*  module  Id  *) 

cur_mes_id  :  octet;  (*  message  Id  *) 

cur_mes  :  IP_TP_message_type ;  (*  cur  IP_TP  message  *) 
cur_tpdu  :  TPDU_type;  (*  TPDU,  used  as  pointer  *) 

cur_s_IP  :  word_type;  (*  source  IP  address  *) 

cur_d_IP  :  word_type;  (*  destin  IP  address  *) 

cur_tpdu_code  :  TPDU_code_type ;  (*  current  TPDU  code  *) 
f lag_extended:  boolean;  (*  flag  for  extended  format  *) 
calling_tsap,called_tsap:  short_word; 


total_mes  j  integer; 
err_mes  :  integer; 
fatal_err  :  integer; 


(*  total  messages  going  through  *) 

(*  messages  with  error  conditions  *) 
(*  fatal  errors  *) 
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{  ***  *** ) 
(***  Common  Procedures  of  IS0_TP4_body  ***) 

(  *  *  *  *  *  *  j 

function  conn_alloc  :  integer; 

(*  allocate  a  free  slot  of  connection  *) 


var 

i,j  :  integer; 

begin 
j  :*  0; 

if  (total_conn  <  MAX_CONN)  then 
for  i  :=  MAX_CONN  to  1  do 

if  (conn_f lag[ i ]  =  false)  then 
j  :=  i; 

if  (j  >  0)  then 
begin 

total_conn  :=  total_conn+l; 
conn_flag[j]  :=  true; 
end; 

conn_alloc  :=  j; 
end; 

(*  In  the  case  of  ( total_conn=MAX_CONN) ,  (conn_alloc=0 )  will  be 
returned.  There  exists  a  TP4M[0]  to  be  used  in  this  case  to 
respond  to  abnormal  TPDUs .  *) 


procedure  conn_free  (j  :  integer);  (*  free  the  connection  slot  *) 
begin 

if  ( ( j >0 )  and  ( j<=MAX_C0NN) )  then 
if  (conn_f lag[ j ]  =  true)  then 
begin 

conn__f  lag[  j  ]  :=  flase; 
total_conn  :=  total_conn-l ; 
end; 

end; 


function  TP4_code  (TPDU:  TPDU_type):  TPDU_code_type ; 

(*  check  the  TPDU_code  of  the  TPDU  *) 
begin 

TP4_code  :=  TPDU[2]  /  16;  (*  4  bits  at  left  *) 

end; 
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function  cur_TP4_code  (mes:  IP_TP__message )  :  TPDU_code_type; 

(*  check  the  TPDU_code  of  the  1st  IP_TP  message  in  queue  *) 
begin 

cur_mes  :=  mes;  (*  access  NQ  message  *) 

cur_tpdu  :=  cur_mes . data ;  (*  point  to  TPDU  *) 

cur_conn  :=  cur_tpdu . dst_ref ;  (*  TCP  reference  index  * ) 

cur_tpdu_code  :=  TP4_code ( cur_tpdu ) ;  (*  get  the  TPDU  code  *) 

if  ( cur_tpdu_code<>CRCODE )  then 

f lag_extended  :=  TP4M[cur_conn] .ex_flag;  (*  ext.ed  format  *) 
cur_TP4_code  :=  cur_tpdu_code ; 
end; 


function  tpdu_fixed  :  integer; 

(*  get  the  pointer  to  the  variable  part  in  cur_tpdu  *) 

var 

i,l:  integer; 
begin 

1  :=  cur_tpdu[l];  (*  get  Length  Indicator  *) 

case  cur_tpdu_code  of 

CRCODE , CCCODE , DRCODE : 

i  :=  CR_VAR;  (*  point  to  variable  part  *) 

DCCODE : 

i  :=  DC_VAR; 

DTCODE , AKCODE , EDCODE , EACODE , ERCODE : 
begin 

i  : =  DT_VAR ; 
if  ( flag_extended)  then 
i  :=  i+3; 
end; 

end; 

tpdu_fixed  :=  i; 
end; 
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function  tpdu_acceptable  (mes:  IP_TP_message_type)  :  boolean; 
(*  check  the  TPDU  to  see  if  it  is  acceptable  *) 


var 

ok, checksum:  boolean; 
i , j , k, 1 :  integer; 

begin 

checksum  :=  false; 
ok  :=  true; 

cur_TP4_code ( mes ) ;  (*  get  cur_conn,  cur_TP_code,  etc.  *) 

if  ( cur_conn<>0 )  then 
begin 

if  (con_f lag(cur_conn j=false)  then 
ok  :=  false; 
else 
begin 

if  (TP4M(cur_conn] . g_module=0 )  then 

TP4M[ cur_conn ] . g_module  =  cur_mes .module/ 16 ; 
else 

if (TP4M[cur_conn] . g_module< >cur_mes .module/ 16 )  then 
ok  :=  flase; 

if  (TP4M[cur_conn ] .d_ip_addr=U )  then 

TP4M[cur_conn ] . d_ip_addr : =cur_mes .d_IP_addr; 
else 

if  (TP4M(cur__conn] .  d_ip_addr<>cur_mes  . d_IP_addr) 
then 

ok  j=  flase; 

if  (TP4M[cur_conn] . s_ip_addr=0 )  then 

TP4M[cur_conn] . s_ip_addr : =cur_mes . s_IP_addr; 
else 

i f ( TP4MJ  cur_conn ] . s_ip_addr <  >cur_mes . s_I P_addr ) 
then 

ok  :=  flase; 

if (TP4M[cur_conn] .r_ref =0 )  then 

TP4M[cur_conn ] . r_ref  :=  cur_tpdu . src_ref ; 
else  if  (cur_tpdu . src_ref <>TP4M[cur_conn ] . r_ref )  then 

ok  :=  false;  (*  check  the  SRC_REF  *) 

end; 

end; 


if  ( (ok)  and  ( cur_tpdu_code  < 
begin 

i  :=  tpdu_fixed( ) ; 

1  :=  cur_tpdu[ 1 ] -i+1 ; 

i  :  =  i  + 1 ; 
while  (1>0)  do 
begin 


RJCODE ) )  then 

(*  length  of  fixed  part  *) 

(*  No  of  bytes  left, 

LI  exclude  itself  *) 

(*  point  to  variable  part  *) 

(*  check  valid  var.  part  *) 


155 


if ( cur_tpdu [ i ] =CHKSUMCODE )  then 

checksum  :=  true;  (*  there  exists  checksum  *) 
j  :=  cur_tpdu ( i+1 ] ;  (*  get  the  length  of  field  *) 

1  :=  l-j-2; 
i  :=  i+j+2; 
end; 

if  ((ok)  and  (1<0))  then  (*  error  in  variable  part  *) 

ok  :=  false; 

if  ((ok)  and  (checksum))  then 

ok  :=  chk_checksum( cur_tpdu ,  cur_tpdu . length ) ; 

(*  check  the  checksum  *) 

end; 

tpdu_acceptable  :=  ok; 
end; 


function  dup_CR  (mes:  IP_TP_message_type )  i  boolean; 

(*  check  the  CR  TPDU  to  see  if  it  is  duplicate  *) 


var 

dup:  boolean; 

CR_tpdu :  TPDU_CR_type ; 
i:  integer; 

begin 

CR_tpdu  :=  mes. data; 
cur_conn  : =  0 ; 
dup  :=  false; 
i  :=  1; 

while  ( ( i<=MAX_CONN )  and  (dup=false))  do 
begin 

if  ( (conn_f lag[ i ] =true )  and 

(mes . s_IP_addr=TP4M[ i ] . s_ip_addr )  and 
(mes . d_IP_addr=TP4M[ i] ,d_ip_addr)  and 
( CR_tpdu . src_ref =TP4M[ i ] . r_ref ) )  then 
begin 

cur_conn  :=  i; 
dup  : =  true; 
end; 

i  :  =  i  + 1 ; 
end; 

dup_CR  :=  dup; 
end; 
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function  dup_CRg  (mes:  TPDU_message_type )  : 
{*  check  the  CR  TPDU  from  TP_GW  to  see 


boolean; 
if  it  is 


duplicate 


*) 


var 

dup:  boolean; 
i:  integer; 

begin 

cur_conn  : =  0 ; 
dup  false; 
i  i  ~  1 , 

while (( i<=MAX_CONN)  and  (dup=false))  do 
begin 

if  ( ( conn_f lag[ i ] =true )  and 

(mes  .d__IP_addr=TP4M[  i]  .  s_ip_addr )  and 
(mes . s_IP_addr=TP4M[ i j . d_ip_addr )  and 
( mes . src_ref =TP4M[ i ] • g_ref ) )  then 
begin 

cur_conn  : =  i; 
dup  :=  true; 
end; 

i  :=  i+1; 
end; 

dup_CRg  :=  dup; 
end; 
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(***  ***) 

(***  Initialization  of  IS0_TP4_body  ***) 

(***  ***) 

initialize 


total_mes  :=  0;  ( 
err_mes  : =  0 ;  ( 
fatal_err  :=  0;  ( 

total_conn  :=  0;  ( 


for  i  :=  1  to  MAX_CONN  do 
conn_flag  :=  false;  ( 


total  messages  *) 
error  messages  *) 
fatal  errors  *) 

total  transport  connections  *) 
the  connection  slot  is  free  *) 


init  TP4M[0]  with  TP4_machine_interface_body( ) ; 

(*  virtual  State_machine  for 
responding  to  error  CR's  * 

TP4M[ 0 ] . l_ref  :=  0; 

connect  TP4M_I  to  TP4M[ 0 ] . TP4M_I ; 

connect  TP4I_I  to  TP4M[ 0 ] . TP 4 I_I ; 


attach  TP 4 M_0  to  TP4M[0 ] .TP4M_0; 
attach  TP4 I_0  to  TP4M[ 0 ] . TP4 I_0; 


) 


end; 
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(  * ** 

(  ** * 
/  *  *  * 


State  Transitions 


*  *  * ) 

*** ) 

*  *  * ) 

trans 

when  NSi . IP_TP_MESind  priority  0  (*  receive  from  ISO-IP  *) 

begin 

total_mes  :=  total_mes+l; 
direction  :=  in; 

if  ( tpdu_acceptable( message ) =false)  then 

err_mes  :=  err_mes+l;  (*  TPDU  not  acceptable  *) 

else  if  (cur_tpdu_code=CRCODE)  then  (*  and  cur_conn=0  *) 
begin  (*  Connection  Request  *) 

if  (dup_CR( message) =false)  then 
begin 

cur_conn  :=  conn_alloc ( ) ; 
if  (cur_conn>0)  then 

begin  (*  initialize  TP4  protocol 

machine  * ) 

init  TP4M[ cur_conn ]  with 

TP4_machine_interf ace_body ( ) ; 
with  TP4M[cur__conn]  do 
begin 

l_ref  :=  cur_conn; 

flag_kill_me  :=  conn_in_progress ; 

end; 

connect  TP4M_I  to  TP4M( cur_conn ] .TP4M_I; 
connect  TP4I_I  to  TP4M[cur_conn ] . TP4 I_I ; 
attach  TP4M_0  to  TP4M[cur_conn] .TP4M_0; 
attach  TP4I_0  to  TP4M[cur_conn] .TP4I_0; 
end;  (*  if  conn  *) 
end;  (*  if  dup_CR  *) 
output  TP4M[cur_conn] . TP4M_I (message) ; 

(*  pass  TPDU  for  further  check  or  response  *) 
end;  (*  if  CR  *) 
else 

output  TP4M[ cur_conn] . TP4M_I (message) ; 
end;  (*  trans  *) 

(*  For  duplicated  CR,  the  state  machine  TP4M[cur_conn]  will 
response  to  it  with  CC,  as  required  by  ISO  8073. 

In  case  there  is  no  local  connection  slot  available, 
cur_conn  is  reset  to  0  by  dup_CR(),  or  by  conn_alloc ( ) ,  the 
CR  will  be  passed  to  TP4M[0]  which  will  in  turn  send  a  DR  to 
refuse  the  connection  request.  *) 
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trans 

when  TGS . TP_MESreq  priority  0  (*  receive  from  TCP,  begore 

feeding  into  TP4_machine  *) 

begin 

total_mes  :=  total_mes+l; 
direction  :=  out; 
cur_mes  :=  message; 

cur_tpdu  :=  cur_mes . data ;  (*  point  to  TPDU  *) 

cur_conn  :=  cur_tpdu . src_ref ;  (*  TCP  reference  index  *) 

f lag_extended  :=  TP4M[cur__conn]  .class  and  2;  (*  extended  format  *) 
cur_tpdu_code  :=  TP4_code ( cur_tpdu ) ;  (*  get  the  TPDU  code  *) 

case  cur_tpdu_code  of 

CCCODE , DRCODE , DCCODE , DTCODE , 

AKCODE , EDCODE , EACODE , ERCODE , 

RJCODE  : 

output  TP4M[cur_conn] . TP4I_I (message) ; 

CRCODE  : 
begin 

if  (dup_CRg( message) =false)  then 
begin 

cur_conn  :=  conn_alloc ( ) ; 
if  (cur_conn>0)  then 

begin  (*  initialize  a  new  TP4_machine  *) 

init  TP4M[cur_conn]  with 

TP4_machine_interface_body ( ) ; 
with  TP4M(cur_conn]  do 
begin 

l_ref  :  =  cur^conn; 
f lag_kill_me~: =  conn_in_progress ; 
end; 

connect  TP4M_I  to  TP4M[cur_conn ] . TP4M_I ; 
connect  TP4I_I  to  TP4M[cur_conn] .TP4I_I ; 
attach  TP4M_0  to  TP4M[cur_conn ] .TP4M_0; 
attach  TP4I_0  to  TP4M[cur_conn] .TP4I_0; 
end;  (*  if  conn  *) 
end;  (*  if  *) 

output  TP4M[cur_conn] .TP4I_I (message) ; 

(*  pass  TPDU  for  further  checking  *) 
end;  (*  case  CR  *) 
end;  (*  case  *) 
end;  (*  trans  *) 
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trans 

any  TP4M[i]s  TP4_machine_interface  type  do 

provided  (TP4M[i].flagJcill_me  =~now)  priority  1 


begin 

disconnect  TP4M[ i ] .TP4M_I ; 
disconnect  TP4M[i] . TP4I_I; 
disattach  TP4M[i] ,TP4M_0; 
disattach  TP4.M[  i  ]  .TP4I_0; 
release  TP4M[‘i]; 
conn_f ree( i ) ; 
end  ; 


{*  disconnect  port  relations  *) 


(*  terminate  TP4_machine  *) 

{*  free  the  slot  for  future  use  *) 


end;  (*  of  IS0_TP4_body  *) 
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★  ic  it 


*  *  *  ) 

(***  TP4_machine__interface_body  Specification  ***) 
(***  ***) 


body  TP4_machine_i.nterf  ace_body  for  TP4_machine_interf ace_type ; 
constant 

VERSION  =1;  (*  TP-4  version,  IS  8073  *) 


type 

(*  TPDU  formats  *) 


TPDU_type:  data_ 

.type ; 

(* 

general  form  *) 

TPDU  CR  type  =  record 

(* 

for  CR,  CC  *) 

length 

octet ; 

(* 

length  indicator  * 

tpdu  code 

TPDU_code  type; 

(* 

TPDU  code  and  CDT 

dst_ref 

short_word; 

(* 

destin_ref rence  *) 

src_ref 

short_word; 

(* 

source_ref rence  *) 

class 

TP_class_type; 

(* 

Class  option  *) 

var_part 

TP_var_part_type ; 

(* 

variable  part  *) 

data 

data_type; 

(* 

user  data  *) 

end; 

TPDU  DR  type  =  record 

(* 

for  DR  *) 

length 

octet ; 

(* 

length  indicator  * 

tpdu_code 

TPDU_code_type ; 

(* 

TPDU  code  *) 

dst_ref 

short_word ; 

(* 

destin_ref rence  *) 

src_ref 

short_word; 

(* 

source_ref rence  *) 

reason 

TP_reason_type ; 

(* 

reason  *) 

var_part 

TP_var_part_type ; 

(* 

variable  part  *) 

data 

end; 

data_type; 

(* 

user  data  *) 

TPDU_DC_type  = 

record 

(* 

for  DC  *) 

length 

• 

• 

octet; 

(* 

length  indicator  * 

tpdu_code 

• 

• 

TPDU_code_type ; 

(* 

TPDU  code  *) 

dst_ref 

• 

short_word; 

(* 

destin_ref rence  *) 

src_ref 

• 

• 

short_word; 

(* 

source_ref rence  *) 

var  part 
end; 

2 

TP  va  r  pa rt_ type ; 

(* 

variable  part  *) 
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TPDU 


TPDU 


TPDU 


TPDU 


TPDU 


TPDU 


DT  type  =  record 

{* 

for  DT,  ED  *) 

length 

octet; 

(* 

length  indicator  *) 

tpdu_code 

TPDU_code_type ; 

(* 

TPDU  code  * ) 

dst_ref 

short_word; 

(* 

destin_ref rence  *) 

seq_no 

octet; 

(* 

sequence  no  and  EOT  *) 

var_part 

TP_var_part_type ; 

(* 

variable  part  *) 

data 

data_type; 

(* 

user  data  *) 

end; 

DTe_type  = 

record 

(* 

for  extended  DT,  ED  *) 

length 

octet ; 

(* 

length  indicator  *) 

tpdu_code 

TPDU_code_type ; 

(* 

TPDU  code  *) 

dst  ref 

short_word ; 

(* 

destin_ref rence  *) 

seq  no 

word_type ; 

(* 

sequence  no  and  EOT  * ) 

var_part 

TP_var_part_type ; 

(* 

variable  part  *) 

data 

end; 

data_type; 

(* 

user  data  *) 

AK_type  = 

record 

(* 

for  AK,  EA  *) 

length 

:  octet; 

(* 

length  indicator  *) 

tpdu_code 

:  TPDU_code_type; 

(* 

TPDU  code  and  CDT  *) 

dst_ref 

:  short  word; 

(* 

destin_ref rence  *) 

seq_no 

:  octet; 

(* 

sequence  no  and  EOT  * ) 

var_part 

end; 

:  TP_var_part__type ; 

(* 

variable  part  *) 

AKe_type  = 

record 

(* 

for  extended  AK  * ) 

length 

octet; 

(* 

length  indicator  *) 

tpdu_code 

TPDU_code_type ; 

(* 

TPDU  code  * ) 

dst_ref 

short__word; 

(* 

destin_ref rence  *) 

seq_no 

word_type ; 

(* 

sequence  no  * ) 

cdt 

short_word; 

(* 

credit  *) 

var_part 

end; 

TP_var_part_type ; 

(* 

variable  part  *) 

EAe_type  » 

record 

(* 

for  extended  EA  *) 

length 

octet ; 

(* 

length  indicator  *) 

tpdu_code 

TPDU_code_type ; 

(* 

TPDU  code  *) 

dst_ref 

short_word; 

(* 

destin_ref rence  *) 

seq_no 

word_type ; 

(* 

sequence  no  *) 

var_part 

end; 

TP_var_part_type ; 

(* 

variable  part  *) 

RJ_type  = 

record 

(* 

for  RJ  *) 

length 

:  octet; 

(* 

length  indicator  *) 

tpdu_code 

:  TPDU_code_type; 

(* 

TPDU  code  and  CDT  *) 

dst_ref 

:  short_word; 

(* 

destin_ref rence  *) 

seq_no 

_ _ i  . 

:  octet; 

(* 

sequence  no  and  EOT 

end; 
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TPDU_RJe_type  =  record  ( 

length  :  octet;  ( 

tpdu_code  :  TPDU_code_type;  ( 

dst_ref  :  short_word;  ( 

seq_no  :  word_type;  ( 

cdt  :  short_word;  ( 

end; 


TPDU_ER_type  = 
length 
tpdu_code 
dst_ref 
cause 
var_part 
end; 


record  ( 
:  octet;  ( 
:  TPDU_code_type ;  ( 
:  short_word;  ( 
:  TP_cause_type ;  ( 


TP_var_part_type ;  ( 


mes_CR_type  =  record  ( 

module  :  octet;  ( 

message  :  octet;  ( 

s_IP_addr  :  word_type;  ( 

d_lP_addr  :  word_type;  ( 

tpdu  :  TPDU_CR_type ;  ( 

end; 

mes_DR_type  =  record  ( 

module  :  octet;  ( 

message  j  octet;  { 

s_IP_addr  :  word_type;  ( 

d_IP_addr  :  word_type;  ( 

tpdu  :  TPDU_DR_type ;  ( 

end; 

mes_DC_type  =  record  ( 

module  :  octet;  ( 

message  :  octet;  ( 

s_IP_addr  :  word_type;  ( 

d_IP_addr  :  word_type;  ( 

tpdu  :  TPDU_DC_type ;  ( 

end; 

mes_DT_type  =  record  ( 

module  :  octet;  ( 

message  :  octet;  ( 

s_IP_addr  :  word_type;  ( 

d_IP_addr  ;  word_type;  ( 

tpdu  :  TPDU_DT_type ;  ( 

end; 


*  for  extended  RJ  * ) 

*  length  indicator  *) 

*  TPDU  code  *) 

*  destin_ref rence  *) 

*  sequence  no  *) 

*  credit  *) 


*  for  ER  * ) 

*  length  indicator  *) 

*  TPDU  code  and  CDT  *) 

*  destin_ref rence  *) 

*  Reject  cause  *) 

*  variable  part  *) 


*  for  CR,  CC  *) 

*  Module  Id  *) 

*  Message  Id  *) 

*  source  IP  address  *) 

*  destin  IP  address  *) 

*  CR  TPDU  *) 


*  for  DR  *) 

*  Module  Id  *) 

*  Message  Id  *) 

*  source  IP  address  *) 

*  destin  IP  address  *) 

*  DR  TPDU  *) 


*  for  DC  *) 

*  Module  Id  * ) 

*  Message  Id  *) 

*  source  IP  address  *) 

*  destin  IP  address  *) 

*  DC  TPDU  *) 


*  for  DT,  ED  *) 

*  Module  Id  *) 

*  Message  Id  *) 

*  source  IP  address  *) 

*  destin  IP  address  *) 

*  DT  TPDU  *) 
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mes_DTe_type  =  record 
module  :  octet; 


message  : 
s  IP  addr 


tpdu 

end; 


octet ; 

:  word_type; 


d_IP_addr  :  word_type 


:  TPDU_DTe_type ; 


for  extended  DT,  ED 
Module  Id  *) 

Message  Id  *) 
source  IP  address  *) 
destin  IP  address  *) 
DTe  TPDU  *) 


mes_AK_type  =  record 
module  :  octet; 
message  :  octet; 
s_IP_addr  :  word_type; 
d_IP_addr  :  word_type; 
tpdu  :  TPDU_AK_type ; 

end; 


for  AK,  EA  *) 
Module  Id  *) 
Message  Id  *) 
source  IP  address 
destin  IP  address 
AK  TPDU  *) 


mes_AKe_type  =  record 
module  :  octet; 
message  :  octet; 
s  IP_addr  :  word_type; 
d_IP_addr  :  word_type; 
tpdu  :  TPDU_AKe_type; 

end; 


for  extended  AK  *) 
Module  Id  *) 

Message  Id  *) 
source  IP  address  *) 
destin  IP  address  *) 
AKe  TPDU  *) 


mes_EAe_type  =  record 
module  j  octet; 
message  :  octet; 
s__IP_addr  :  word_type; 
d_IP_addr  :  word_type; 
tpdu  :  TPDU_EAe_type; 

end; 


for  extended  EA  *) 
Module  Id  *) 
Message  Id  *) 
source  IP  address 
destin  IP  address 
EAe  TPDU  *) 


mes_RJ_type  =  record 
module  :  octet; 
message  :  octet; 
s_IP_addr  :  word_type; 
d_IP_addr  :  word_type; 
tpdu  :  TPDU_RJ_type ; 

end; 


for  RJ  *) 

Module  Id  *) 

Message  Id  *) 
source  IP  address  *) 
destin  IP  address  *) 
RJ  TPDU  *) 


mes_RJe_type  =  record 
module  :  octet; 


message  : 
s  IP  addr 


octet ; 

:  word  type; 


d_IP_addr  :  word_type; 


tpdu 
end ; 


:  TPDU_RJe_type ; 


for  extended  RJ  * 
Module  Id  *) 
Message  Id  *) 
source  IP  address 
destin  IP  address 
RJe  TPDU  *) 
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mes_ER_type  =  record 
module  :  octet; 
message  :  octet; 
s_IP_addr  :  word_type; 
d_IP_addr  :  word_type; 
tpdu  :  TPDU_ER_type; 

end; 


(*  for  ER  *) 

(*  Module  Id  *) 

(*  Message  Id  *) 

(*  source  IP  address  *) 
(*  destin  IP  address  *) 
( *  ER  TPDU  * ) 


TP4_state_type 


(CLOSED,  OPEN,  WFCCiso,  WFCCout,  AKWAITiso, 
AKWAITout ,  CLOSINGiso,  CLOSINGout,  REFWAIT); 


166 


*  *  * 


(  *  *  * 

(***  Variables  of  TP4_machine_interf ace  _body  ***) 

(  *  *  *  *  *  *  ) 

var 

proto_err  :  integer;  (*  fatal  errors  *) 

1_TSAP  :  short_word;  (*  local  TSAP  id  *) 

r_TSAP  :  short_word;  (*  remote  TSAP  id  *) 
initiator  :  initiator_type;  (*  who  initiate  the  conn  *) 
size  :  octet;  (*  max  TPDU  size  *) 

vers  :  octet;  (*  TP  version  *) 

prot  :  data__type;  (*  user-def  protection  *) 

ack_time  :  short_word;  (*  max  ack  time  in  msec  *) 

throuput  :  throughput_type ;  (*  throuput  *) 
res_error  :  res_error_type;  (*  residual  error  *) 
priority  :  short_word;  (*  priority  *} 
trans_delay:  trans_delay_type;  (*  transit  delay  *) 
g_class  :  octet;  (*  GW  class  and  flags  *) 

g_size  :  octet;  (*  GW  max  TPDU  size  *) 

g_vers  :  octet;  (*  GW  TP  version  *) 

g_prot  :  data_type;  (*  GW  user-def  protection  *) 
g_ack_time:  short_word;  (*  GW  max  ack  time  in  msec  *) 
g_throuput:  throughput_type;  (*  GW  throuput  *) 
g_res_error:  res_error_type ;  (*  GW  residual  error  *) 
g_priority:  short_word;  (*  GW  priority  *) 
g_trans_delay :  trans_delay_type;  (*  GW  transit  delay  *) 
send_seq  :  word_type;  (*  sending  sequence  no  *) 

send_cdt  :  short_word;  (*  sending  credit  *) 

s_sub_seq  :  short_word;  (*  sub-seq  no  for  AK  *) 

s_ack_seq  :  word_type;  (*  ack_ed  sequence  no  *) 

rcv_seq  :  word_type;  (*  receiving  sequence  no  *) 

rcv_cdt  ;  short_word;  (*  receiving  credit  *) 

r_sub_seq  :  short_word;  (*  sub-seq  no  for  AK  *) 

r_ack_seq  :  word_type;  (*  ack_ed  sequence  no  *) 

exp_flag  :  boolean;  (*  flag  for  ED  blocking  *) 

exp_seq  :  integer;  (*  ED  sequence  number  *) 

exp_que  :  queue_type  of  data__type;  (*  blocked  DTs  *) 

reason  :  TP_reason_type ;  (*  reason  *) 

cause  :  TP_cause_type ;  (*  Reject  cause  *) 

re_trans  :  queue_type  of  retrans_type ;  (*  retransmission  *) 

re_order  :  queue_type  of  reorder_type;  (*  re-order  *) 

cur_mes  :  IP_TP_message__type;  {*  cur  IP_TP  message  *) 
cur_tpdu  :  TPDU_type;  (*  TPDU,  used  as  pointer  *) 
cur_tpdu_code  :  TPDU_code_type ;  (*  current  TPDU  code  *) 
var_ptr:  ,'TP_var_part_type ;  (*  ptr  to  variable  part  *) 

sub_state  :  boolean;  (*  associated  flag  *) 

seq  :  word_type; 
cdt  :  short_word; 
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procedure  set_timer  (FSM:  TP4_machine_type ; 

time:  integer; 

kind:  timer_type);  primitive; 


(*  set  timer  *) 


procedure  set_retrans_timer ; 

(*  set  re-trans  timer  *) 
begin 

set_timer  ( TP4M[ l_ref ]  ,  RETRAWS_TIME ,  retrans ) ; 
end; 


procedure  set_ref_timer ; 

(*  set  ref  timer  *) 
begin 

set_timer  ( TP4M[ l_ref ] ,  REF_TIME,  ref); 
end; 


procedure  set_window_timer ; 

(*  set  window  timer  *) 
begin 

set_timer  { TP4M[  l_ref  ] ,  WINDOW__TIME ,  window); 
end; 


procedure  set_inact_timer ; 

(*  set  inact  timer  *) 
begin 

set_timer  (TP4M[ l_ref j ,  INACT_TIME ,  inact); 
end; 


169 


procedure  stop_timer  (FSM:  TP4_machine_type ; 

kind:  timer_type ) ;  primitive; 


(*  stop  timer  *) 


procedure  stop_retrans_timer ; 

(*  stop  retrans  timer  *) 
begin 

stop_timer  ( TP4M[ l_ref ] ,  retrans); 
end; 


procedure  stop_window_timer ; 

(*  stop  window  timer  *) 
begin 

stop_timer  ( TP4M[ l_ref ]  ,  window); 
end; 


procedure  stop_inact_timer ; 

(*  stop  inact  timer  *) 
begin 

stop_timer  ( TP4M[ l_ref ] ,  inact); 
end; 


function  timer  (kind:  timer_type):  logical;  primitive; 

(*  called  at  the  timer  interrupt  *) 


function  set_credit:  integer;  primitive; 

(*  set  credit  for  local  TP4M  for  receiving.  It  is  used  to 
get  the  window  width  for  the  flow  control.  The 

function  can  be  implemented  by  estimating  the  available 
storage  space  in  memory,  dividing  them  between  the 
modules  in  the  system,  and  between  the  active  sessions 
in  the  module.  *) 


170 


function  acceptable_param:  logical; 


primitive ; 

(*  check  to  see  if  the  connection  parameters 
are  acceptable  *) 


function  TP4_code  (mes:  IP_TP_message_type )  :  TPDU_code_type ; 

(*  check  the  TPDU_code  of  message  from  IP  *) 
begin 

cur_mes  :=  mes; 
cur_tpdu  :=  cur_mes . data  ; 

cur_tpdu_code  :=  cur_tpdu(2]  /  16;  (*  4  bits  at  left  *) 

TP4_code  :=  cur_tpdu_code ; 

end; 


function  TP_code  (mes:  TPDU_message_type )  :  TPDU_code_type ; 

(*  check  the  TPDU_code  of  message  from  TP-GW  *) 
begin 

tp_mes  :=  mes; 

cur_tpdu_code  :  =  tp_mes . tpdu_code;  (*  4  bits  at  right  *) 
TP_code  :=  cur_tpdu_code ; 
end ; 


function  tpdu_fixed  :  integer; 

(*  get  the  pointer  to  the  variable  part  in  cur_tpdu  *) 

var 

1,1:  integer; 
begin 

1  :=  cur_tpdu[l];  (*  get  Length  Indicator  *) 

case  cur_tpdu_code  of 

CRCODE , CCCODE , DRCODE : 

i  :=  CR_VAR;  (*  point  to  variable  part  *) 

DCCODE : 

i  :=  DC_VAR ; 

DTCODE , AKCODE , EDCODE , EACODE , ERCODE : 
begin 

i  :=  DT_VAR; 
if  (ex_flag)  then 
i  :=  i+3; 
end ; 

end;  (*  case  *) 
tpdu_ fixed  :=  i; 
end  ; 
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procedure  tpdu_checksum  (var  mes:  IP_TP_message_type ) ; 
(*  complete  the  TPDU  with  checksum,  etc.  *) 


var 

i  ,  j , k, 1 :  integer; 


« 


begin 

i  :=  tpdu_fixed( ) ;  (* 

1  :=  cur_tpdu[ 1 ]-i+l ;  (* 

j  :=0; 

i  :  =  i + 1 ;  (  * 

while  ( ( 1 > 0 )  and  ( j  =0 ) )  do 
begin 

if  (cur_tpdu[ i]=CHKSUMCODE) 
j  :=  i+2;  (* 

else 

begin 

k  :=  cur_tpdu [ i+ 1 ] ;  (* 

1  :=  l-k-2 ; 
i  :=  i+k+2; 
end; 


length  of  fixed  part  *) 
No.  of  bytes  left,  LI 
exclude  itself  *) 

point  to  variable  part  *) 


then 

get  pointer  to  checksum  *) 


get  the  length  of  field  *) 


end; 

if  (j>0)  then 

mes. data  :=  set_ checksum (cur_tpdu,  cur_tpdu . length ,  j); 

end; 
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procedure  accept_TPDU  (mes:  IP_TP_message_type ) ; 


(*  accept  the  control  info  in  the  TPDU  from  IS0-TP4  *) 


begin 

cur_mes  :  =  mes; 
cur_tpdu  :=  cur_mes . data ; 

cur_tpdu_code  :=  cur_tpdu[2]  /  16;  (*  4  bits  at  left  *) 


sub_state  :=  true;  (*  true 

if  (r_ref=0)  then 

r_ref  :=  cur_tpdu . src_ref ;  (*  fill 

else  if  ( r_ref <>cur_tpdu . src_ref )  then 
sub_state  :=  false; 


for  OK  *) 
in  remote  ref  *) 


if  ( s_ip_addr=0 )  then 

s_ip_addr  :=  cur_tpdu . s_IP_addr ;  (*  fill  in  source  IP  *) 

else  if  ( s_ip_addr<>cur_tpdu . s_IP_addr )  then 
sub_state  :=  false; 

if  ( d_ip_addr=0 )  then 

d_ip_addr  :=  cur_tpdu .d_IP_addr ;  (*  fill  in  destin  IP  *) 

else  if  (d_ip_addr<>cur_tpdu .d_IP_addr )  then 
sub_state  :=  false; 


case  cur_tpdu_code  of  (*  pick  up  special  fields  *) 

CRCODE , CCCODE  : 
begin 

ptr_CR  :=  ~cur_tpdu; 

class  : =  ptr_CR. class  /  16;  (*  left  4  bit  for  class  *) 

if  ( ptr_CR. class  and  2)  then 
ex_flag  :=  true; 
else 

ex_flag  :=  false; 
if  (cur_tpdu_code=CRCODE)  then 

g_module  :=  cur_mes .module/ 16 ; 

end ; 

DRCODE  : 
begin 

ptr_DR  :=  ~cur_tpdu; 
reason  :=  ptr_DR. reason; 
end; 

DTCODE , EDCODE  : 

if  ( ex_f lag=f lase )  then  (*  normal  *) 

begin 

ptr_DT  ,'cur_tpdu; 

seq  :=  get_word  ( ptr_DT . seq_no , 1 ) ; 

end; 

else  (*  extended  *) 

begin 

ptr_DTe  :=  ~cur_tpdu; 
seq  : =  ptr_DTe . seq_no ; 
end; 

AKCODE , EACODE  : 
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(*  normal  *) 


if  (ex_flag=f lase)  then 
begin 

ptr_AK  :=  ''cur_tpdu; 
seq  :=  get_word  ( ptr_AK . seq_no , 1 
end; 

else  (* 

begin 

ptr_AKe  :=  /'cur_tpdu; 
seq  :=  ptr_AKe . seq_no ; 
end; 

RJCODE  : 

if  (ex_f lag=f lase )  then  (* 

begin 

ptr_RJ  :  =  ~cur_tpdu; 

seq  :=  get_word  ( ptr_RJ . seq_no , 

end; 

else  (* 

begin 

ptr_RJe  :=  ~cur_tpdu; 
seq  :=  ptr_RJe . seq_no ; 
end; 

ERCODE  : 
begin 

ptr_ER  :=  ~cur_tpdu; 
cause  :=  ptr_ER. cause; 
end; 


default  :  ( 

null ; 

end; 

case  cur_tpdu__code  of  ( 

CRCODE , CCCODE  : 

cdt  :=  ptr_CR. tpdu_code  mod  16; 
AKCODE  : 

if  (ex__flag=f lase)  then  ( 

cdt  :=  ptr_AK. tpdu_code  mod  16; 
else  ( 

cdt  :=  ptr_AKe.cdt; 

RJCODE  : 

if  (ex_f lag=f lase)  then  ( 

cdt  :=  ptr_RJ . tpdu_code  mod  16; 
else  ( 

cdt  :=  ptr_RJe.cdt; 
default  : 
null ; 

end;  (*  case  *) 
end; 


) ; 

extended  * ) 

r  normal  *) 

1)  ; 

c  extended  * ) 

*■  DC  * ) 

*  pick  up  credit  *) 

*  normal  *) 

*  extended  * ) 

*  normal  *) 

*  extended  * ) 
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procedure  accept_TP4_param; 

(*  accept  the  control  parameters  in  the  TPDU  from  IS0-TP4  *) 


var 

n:  word__type; 
sn:  short_word; 
i , j , k, 1 :  integer; 
var_ptr:  ~TP_var_part_type ; 

begin 

i  :=  tpdu_fixed( ) ;  (*  ptr  to  variable  parts  *) 

var_ptr  :=  ~cur_tpdu [ i  +  1 ] ; 

1  :=  cur_tpdu[ 1 ] -i+1 ;  (*  length  of  variable  part  *) 

while  ( 1>0 )  do 
begin 

k  :=  var_ptr . length; 

case  var_ptr . param_code  of 

CALINGCODE  :  (*  1100  0001:  calling  TSAP-ID  *) 

if  (k>2)  then 

sub_state  :=  false; 
else  if  ( cur_tpdu_code=CRCODE )  then 

r_TSAP  :=  get_sword  ( var_ptr . value ,  k) ; 
else  if  ( cur_tpdu_code<>CCCODE )  then 
sub_state  :=  false; 
else  if  (r_TSAP=0)  then 

r_TSAP:=get_sword(var_ptr. value, k) ; 
else  if  (r_TSAP<>get_sword(var_ptr. value, k) ) )  then 
sub_state  :=  false; 

CALLEDCODE  :  (*  1100  0010:  called  TSAP-ID  *) 

if  (k>2)  then 

sub_state  :=  false; 
else  if  (cur_tpdu_code=CRCODE)  then 

1_TSAP  :=  get_sword  (var_ptr .value,  k) ; 
else  if  (cur_tpdu_code<>CCCODE)  then 
sub_state  :=  false; 
else  if  (1_TSAP=0)  then 

1_TSAP : =get_sword ( var_ptr . value , k ) ; 
else  if  ( l_TSAP<>get_sword( var_ptr .value, k) ) )  then 
sub_state  :=  false; 

PDUSIZCODE  :  (*  1100  0000:  TPDU  size  *) 

if  (cur_tpdu_code=CRCODE)  then 

size  :=  get_sword  ( var_ptr . value ,  k); 
else  if  (cur_tpdu_code<>CCCODE)  then 
sub_state  :=  false; 
else 

begin 

sn  :=  get_sword(var_ptr. value, k) ; 
if  ((size=0)  or  (size>sn))  then 
size  :=  sn; 

end; 
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VERSNOCODE  :  (*  1100  0100:  version  number3 1  *) 

vers  :=  get_sword( var_ptr .value, k) ; 

SECURICODE  :  (*  1100  0101:  protection  *) 

prot  :  =  d_gets ( var_ptr . value , 1 , k ) ; 

ADDLOPCODE  :  (*  1100  0110:  additional  options  *) 

begin 

sn  :=  get_sword( var_ptr . value ,  k); 
if  ( sn  and  2=0)  then 
ch_flag  :=  true; 
else 

ch_flag  :=  false; 
if  (sn  and  1)  then 

ed_flag  :=  true; 
else 

ed_flag  :=  false; 

end; 

ALTCLSCODE  :  (*  1100  0111:  alternative  class  *) 

begin 

if  (class<>4)  then 

for  i  :=  1  to  k  do 

if  ( var_ptr . value [ i ] =4 )  then 
class  :=  4; 
if  (class<>4)  then 

sub_state  :=  false; 

end; 

AKTIMECODE  :  (*  1000  0101:  acknowledge  time  *) 

ack_time  :=  d_gets(var_ptr .value, l,k) ; 

THRUPTCODE  :  (*  1000  1001:  throughput  *) 

throuput .max_AB  :=  get_word( var_ptr . value [ 1 ] , 3 ) ; 
throuput  .min_AB  :=  get_word(  var_ptr .  value  [  4  ] ,  3 ) ; 
throuput .max_BA  :=  get_word( var_ptr . value [ 7 j , 3 ) ; 
throuput .min_BA  :=  get_word( varjptr . value [ 10 ] , 3 ) ; 
if  (k=24)  then 
begin 

throuput . ave_AB  :=  get_word( var_ptr . value ( 13 ] , 3 ) ; 
throuput . a_min_AB  :=  get_word( var_ptr . value[ 16 ] , 3) ; 
throuput . ave_BA  :=  get_word( var_ptr . value [ 19 1 , 3) ; 
throuput . a_min_BA  :=  get_word ( var_ptr . value [ 22 ] , 3 ) ; 
end; 

RESERRCODE  :  (*  1000  0110:  residual  error  rate  *) 

res_error. target  :=  get_word( var_ptr . value [ 1 ) , 1 ) ; 
res_error .min_acc  :=  get_word( var_ptr . value ( 2 J , 1 ) ; 
res_error .TSDU_size  :=  get_word( var_ptr . value [ 3 ] , 1 ) ; 

PRIORTCODE  :  (*  1000  0111:  priority  *) 

priority  :=  get_word  (var_ptr. value, k) ; 

TRNDELCODE  :  (*  1000  1000:  transit  delay  *) 
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trans_delay . target_AB  :=  get_word( var_ptr . value [ 1 ] , 2 ) 
trans_delay .max_AB  :=  get_word ( var_ptr . value [ 3 ] , 2 ) ; 
trans_delay . target_BA  :=  get_word ( var_ptr . value [ 5 J \ 2 ) 
trans_delay .max_BA  : *  get_word( var_ptr. value [7 ] , 2 ) ; 


default  : 
null ; 

end;  (*  case  *) 


(*  CHKSUHCODE, REASSIGN, etc  *) 


end; 


var_ptr  :=  ~var_ptr .value[k+l ] ; 
1  « =  1 — k— 2 ; 
end;  ( *  while  * ) 


procedure  accept_TP_mes ( mes :  TPDU_message  type); 

(*  accept  the  control  info  in  the  TPDU  from  TCP  *) 


n:  word_type; 
sn:  short_word; 
i , j , k, 1 :  integer; 
var_ptr:  ATP_var_part_type ; 

begin 

tp_mes  : =  mes ; 

cur_tpdu_code  :=  tp__mes .  tpdu_code ;  (*  4  bits  at  right  *) 
if  ( g_ref =0 )  then 

g_ref  :=  tp_mes . sr c_ref ;  (*  fill  in  remote  ref  *) 

sub_state  :=  true;  (*  true  for  OK  *) 


case  cur_tpdu_code  of  (*  pick 

CRCODE , CCCODE  : 
begin 

class  :=  tp_mes .class ; 
if  (cur_tpdu_code=CRCODE)  then 
begin 

g_module  :=  tp_mes .module  mod  16; 
d_ip_addr  :=  tp_mes . d_IP_addr ; 
s_ip_addr  :=  tp_mes . s_IP_addr ; 
end ; 

end; 

DRCODE  : 

reason  :=  tp_mes .reason; 

ERCODE  : 

cause  :=  tp_mes . reason; 
default  :  (*  DC  *) 

null; 

end; 


(*  pick  up  special  fields  *) 


var_ptr  : =  Atp_mes . var_part ; 
1  ••  =  v_length; 


(*  length  of  var.  part  *) 
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while  (1>0)  do 
begin 

k  :=  varjptr. length; 
case  var_ptr . param_code  of 

CALINGCODE  :  (*  1100  0001:  calling  TSAP-ID  *) 

if  (cur_tpdu_code=CRCODE )  then 

1_TSAP  :=  get_sword  ( var_ptr . value ,  k); 
else  if  (cur_tpdu_code<>CCCODE)  then 
sub_state  :=  false; 
else  if  (1_TSAP=0)  then 

1_TSAP : =get_sword ( var_ptr . value  fk) ; 
else  if  ( 1_TSAP< >get_sword ( var_ptr . value , k )) ) 
sub_state  :=  false; 


CALLEDCODE  :  (*  1100  0010:  called  TSAP-ID  *) 

if  ( cur_tpdu_code=CRCODE )  then 

r_TSAP  :=  get_sword  ( var_ptr . value ,  k); 
else  if  (cur_tpdu_code<>CCCODE)  then 
sub_state  :=  false; 
else  if  (r_TSAP=0)  then 

r_TSAP : =get_sword( var_ptr . value , k ) ; 
else  if  ( r_TSAP<>get_sword(var_ptr. value, k) ) ) 
sub_state  :=  false; 


PDUSIZCODE  :  (*  1100  0000:  TPDU  size  *) 

if  { cur_tpdu_code=CRCODE )  then 

g_size  :=  get_sword  (var_ptr. value,  k); 
else  if  (cur_tpdu_code<>CCCODE)  then 
sub_state  :=  false; 
else 

begin 

sn  :=  get_sword(var_ptr .value, k) ; 
if  ((g_size=0)  or  (g_size>sn))  then 
g_size  :=  sn; 

end; 


VERSNOCODE  : 
g_vers  : = 


(*  1100  0100:  version  number=l  * 
get_sword(var_ptr .value, k) ; 


SECURICODE  :  (*  1100  0101:  protection  *) 

g_prot  :=  d_gets ( var_ptr. value, 1 , k) ; 

ALTCLSCODE  :  (*  1100  0111:  alternative  class 

begin 

if  (g_class<>4)  then 

for  i  :=  1  to  k  do 

if  (var_ptr . value [ i]=4 )  then 

g_class  :=  var_ptr . value [ i ] ; 
if  (g_class<>4)  then 

sub_state  :=  false; 

end; 


AKTIMECODE  :  (*  1000  0101:  acknowledge  time  * 

g_ack_time  :=  d_gets ( var_ptr .value, l,k) ; 


then 


then 


) 


*) 
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THRUPTCODE  :  (*  1000  1001:  throughput  *) 

begin 

g_throuput .max_AB  :  =  get_word ( var_ptr . value [ 1 ] , 3 ) ; 
g_throuput .min_AB  :  =  get_word ( var_ptr . value [ 4 ] , 3 ) ;  _ 

g_throuput . max_BA  :=  get_word ( var_ptr . value [ 7 ] , 3 ) ; 
g_throuput . min_BA  :=  get_word( var_ptr . value [ 10 ] , 3 ) ; 
if  (k=24)  then 
begin 

g_throuput . ave_AB  :=  get_word ( var_ptr . value [ 13 ] , 3 ) ; 
g_throuput . a_min_AB  :=  get_word( var_ptr . value [ 16 ] , 3 ) ; 
g_throuput . ave_BA  :=  get_word(var_ptr .value[ 19 ] , 3) ; ~ 
g_throuput . a_min_BA  :=  get_word ( var_ptr . value [ 22 ] , 3 
end ; 

end;  — 

RESERRCODE  :  (*  1000  0110:  residual  error  rate  *) 

begin  _ 

g_res_error . target  :=  get_word ( var_ptr . value [ 1 ], 1 ) ; 
g_res_error . min_acc  :=  get_word ( var_ptr . value [ 2 ] , 1 ) ; 
g_res_error .TSDU_size  :=  get_word ( var_ptr . value [ 3 ] , 1 )  ; 
end;  ~ 

PRIORTCODE  :  {*  1000  0111:  priority  *) 

g_priority  :=  get_word  (var_ptr .value, k) ;  — 

TRNDELCODE  :  (*  1000  1000:  transit  delay  *) 

begin  _ 

g_trans_delay . target_AB  :=  get_word( var_ptr . value { 1 ] , 2 ) 
g_trans_delay .max_AB  :=  get_word ( var_ptr . value [ 3 ] , 2 ) ; 
g_trans_delay .  target_BA  :=  get_word ( var_ptr .  value [  5  ] ,  2  )_; 
g_trans_delay .max_BA  :=  get_word( var_ptr . value [ 7 ] , 2 ) ; 
end; 

default:  ~ 

nu  11; 

end; 

var_ptr  :=  ~var_ptr. value [k+1 ] ; 

1  :=  l-k-2 ; 

end ; 

end ; 
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function  acceptable_CR  :  boolean; 


(*  check  to  see  if  CR/CC  from  IS0-TP4  is  acceptable  *) 


var 

ok:  boolean; 
begin 

ok  :=  sub_state;  (*  set  by  accept_TPDU  *) 

if ((ok)  and  (class<>CLASS_4 ) )  then 
ok  :=  false; 

if  (ok=true)  then 

ok  :=  acceptable_param( ) ;  (*  check  if  parameters 

are  acceptable  *) 


acceptable_CR  :=  ok; 
end; 


function  encode_chksum  :  TP_var_part_type ; 
(*  make  checksum  entry  *) 
var 

var_ptr:  TP_varjpart_type; 

begin 

var_ptr  :=  d_create(4); 

var_ptr . param_code  :=  CHKSUMCODE; 

var_ptr . length  :=  2; 

var_ptr . value  :=  0; 

encode_chksum  :=  var_ptr; 

end; 


function  encode_subseq  :  TP_var_part_type ; 
(*  make  sub-sequence  entry  *) 


var 

var_ptr:  TP_var_part_type; 


begin 

var_ptr  : *  d_create(4); 

var_ptr . param_code  :=  SUBSEQCODE; 

var_ptr . length  :=  2; 

var_ptr. value  :=  r_sub_seq; 

encode_subseq  :=  var_ptr? 

end; 
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procedure  build_DR  (reason:  reason_type; 

mes :  IP_TP_message_type ) ; 

(*  build  DR  for  IS0-TP4,  in  cases  of: 

CLOSED  *  CC; 

WFCC  *  CC_not_acceptable; 

WBCL  *  CC; 

AKWAIT  *  ER; 

OPEN  *  ER; 

CLOSING  *  CR,  CC,  EA; 

REF_WAIT  *  CC  *) 

begin 

mes_DR . module  :  =  (mes. module  mod  16)  *  16; 

(*  shift  l_module  to  d_module, 
leave  l_module  blank  *) 

mes_DR . message  :  =  0; 

mes_DR .  s__IP_addr  :=  mes  .d_IP_addr ; 

mes_DR .  d__IP_addr  :=  mes . s_IP_addr ; 

ptr_CR  "mes. data; 

mes_DR . tpdu . length  :=  CR_VAR-1;  (*  length  of  DR  TPDU  *) 
mes_DR . tpdu . tpdu_code  :=  DRC0DE*16; 
mes_DR . tpdu . dst_ref  : =  ptr_CR . src_ref ; 
mes_DR . tpdu . src_ref  :=  ptr_CR. dst_ref ; 
mes_DR . tpdu . reason  :=  reason; 
if  (ch_flag)  then 
begin 

mes__DR .  tpdu  .  length  :=  mes_DR .  tpdu  .  length+4  ; 
d_append ( mes_DR . tpdu ,  encode_chksum ) ; 

set_checksum(mes_DR. tpdu,  mes_DR . tpdu . length ,  CR_VAR+3); 
end; 

end; 


procedure  build_DC  (mes:  IP_TP_message_type ) ; 

(*  build  DC  for  IS0-TP4  in  response  to: 

CLOSED,  WFCCout,  AKWAIT ,  OPEN,  REFWAIT  *  DR  * ) 


begin 

mes_DC .module  :=  (mes. module  mod  16)  *  16 

+  mes. module  div  16; 

(*  exchange  l_module  &  d_module  *) 

mes_DC .message  :=  0; 

mes_DC . s_IP_addr  :=  mes .d_IP_addr ; 

mes_DC .d_IP_addr  : =  mes . s_IP_addr ; 

ptr_DR  :=  "mes. data; 
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mes_DC . tpdu . length  :=  DC_VAR-1;  (*  length  of  DC  TPDU  *) 
mes_DC . tpdu . tpdu_code  :=  DCC0DE*16; 
mes_DC . tpdu . dst_ref  :=  ptr_DR . src_ref ; 
mes_DC . tpdu . src_ref  :=  ptr_DR.dst_ref ; 
if  (ch_flag)  then 
begin 

mes_DC . tpdu . length  : -  mes_DC . tpdu . length+4 ; 
d_append ( mes_DC . tpdu,  encode_chksum( ) ) ; 

set_checksum( mes_DC . tpdu ,  raes_DC . tpdu . length ,  DC_VAR+3); 
end; 

end; 


procedure  build_CC  (mes:  IP_TP_message_type ) ; 

(*  build  CC  for  IS0-TP4  in  response  to:  AKWAIT  *  CR  * ) 
begin 

mes_CC -  module  :=  (mes. module  mod  16)  *  16 

+  mes. module  div  16; 

(*  exchange  l_module  &  d_module  *) 

mes__CC  .message  :=  0; 

mes_CC . s_IP_addr  :=  mes . d_IP_addr ; 

mes_CC . d_IP_addr  :=  mes . s_IP_addr ; 

mes_CC . tpdu . length  :=  CC_VAR-1;  (*  length  of  CC  TPDU  *) 
rcv_cdt  :=  get_cdt; 

mes_CC . tpdu . tpdu_code  :=  CCC0DE*16  +  rcv_cdt; 
mes_CC . tpdu . dst_ref  :=  r_ref; 
mes_CC . tpdu . src_ref  :=  l_ref; 
mes_CC . tpdu .class  :=  class; 
if  (ch_flag)  then 
begin 

mes_CC . tpdu . length  :=  mes_CC . tpdu . length+4 ; 
d_append(mes_CC . tpdu,  encode_chksum( ) ) ; 

set_checksum( mes_CC . tpdu ,  mes_CC . tpdu . length,  CR_VAR+3); 
end; 

end ; 


procedure  make_DR  (reason:  reason_type ) ; 

(*  make  up  DR  for  ISO-TP4,  in  cases  of: 

WFCC,  WBCL,  AKWAIT,  OPEN  *  retrans_t imer  *  count=max; 

OPEN  *  inact_timer  *) 

begin 

mes_DR. module  :=  l_module  *  16;  (*  shift  l_module  to  d_module, 

leave  l_module  blank  *) 

mes_DR. mes sage  :=  0; 
mes_DR. s_IP_addr  : =  d_ip_addr; 
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mes_DR . d_IP_addr  : =  s_ip_addr; 

mes_DR . tpdu . length  :=  CR_VAR-1;  {*  length  of  DR  TPDU  *) 
mes_DR . tpdu . tpdu_code  :=  DRC0DE*16; 
mes_DR . tpdu . dst_ref  :=  r_ref; 
mes_DR . tpdu . src_ref  :=  l_ref; 
mes_DR . tpdu . reason  :=  reason; 
if  (ch_flag)  then 
begin 

mes_DR . tpdu . length  :=  mes_DR . tpdu . length+4 ; 
d_append ( mes_DR . tpdu ,  encode_chksum ) ; 

set_checksum(mes_DR. tpdu,  mes_DR . tpdu . length ,  CR_VAR+3); 
end ; 

end  ; 


procedure  append_flow;  primitive; 

(*  append  flow-control  info  onto  the  AK  *) 


procedure  make_AK; 

(*  make  up  AK  for  IS0-TP4,  in  cases  of: 

OPEN  *  CC, 

OPEN  *  DT,  ED, 

OPEN  *  timers  *) 

begin 

update_window( ) ;  (*  update  window  control  info  *) 

if  (ex_f lag=false)  then 
begin 

mes_AK .module  s*  l_module  *  16;  (*  shift  l_mod  to  d_mod, 

leave  l_mod  blank  * ) 

mes_AK .message  :=  0; 

mes_AK . s_IP_addr  :=  d_ip_addr; 

mes_AK . d_IP_addr  :=  s_ip_addr; 

mes_AK. tpdu. length  :=  DT_VAR-1;  (*  length  of  AK  TPDU  *) 
mes_AK . tpdu . tpdu_code  :=  AKC0DE*16  +  rcv_cdt; 
mes_AK. tpdu.dst_ref  : =  r_ref; 
if  ( r_ack_seq<rcv_seq)  then 
begin 

r_ack_seq  :=  rcv_seq; 
r_sub_seq  : =  0; 

mes_AK . tpdu . seq_no  : =  r_ack_seq; 
end; 
else 

begin 

mes_AK . tpdu . seq_no  :=  r_ack_seq; 
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r_sub_seq  :=  r_sub_seq+l; 

mes_AK . tpdu . length  :  =  mes_AK . tpdu . length+4 ; 
d_append ( mes_AK . tpdu ,  encode_subseq ) ; 
end; 

if  (ch_flag)  then 
begin 

mes_AK . tpdu . length  :=  mes_AK . tpdu . length+4 ; 
d_append ( mes_AK • tpdu ,  encode_chksum ) ; 

set_checksum(mes_AK . tpdu,  mes_AK . tpdu . length ,  DT_VAR+3) 
end; 

end; 

else  (*  ex_flag=true  *) 
begin 

me s_AKe .module  :=  l_module  *  16;  (*  shift  l_mod  to  d_mod, 

leave  l_mod  blank  *) 

mes_AKe . message  :=  0; 

mes_AKe . s_IP_addr  : =  d_ip_addr; 

mes_AKe . d_IP_addr  :=  s_ip_addr; 

mes_AKe . tpdu . length  :=  DTe_VAR-l;  (*  length  of  AKe  TPDU  * 
mes_AKe . tpdu . tpdu_code  :=  AKeC0DE*16; 
mes_AKe . tpdu . cdt  :=  rcv_cdt; 
mes_AKe . tpdu . dst_ref  : =  r_ref; 
if  (ch_flag)  then 
begin 

mes_AKe . tpdu . length  :=  mes_AKe . tpdu . length+4 ; 
d_append(mes_AKe . tpdu ,  encode_chksum) ; 
set_checksum(mes_AKe. tpdu,  mes_AKe . tpdu . length, 

DTe_VAR+3 ) ; 

end; 

if  ( r_ack_seq<rcv_seq)  then 
begin 

r_ack_seq  :=  rcv_seq; 
r_sub_seq  : =  0 ; 

mes_AKe . tpdu . seq_no  :=  r_ack_seq; 
end; 
else 

begin 

mes_AKe . tpdu . seq_no  :=  r_ack_seq; 
r_sub_seq  :=  r_sub_seq+l; 

mes_AKe .  tpdu .  length  :=  mes__AKe .  tpdu .  length+4  ; 
d_append  ( mes__AKe .  tpdu ,  encode_subseq ) ; 
end; 

end; 

end; 
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procedure  make_EA; 

(*  make  up  EA  for  IS0-TP4,  in  cases  of: 
OPEN  *  CC, 

OPEN  *  DT,  ED, 

OPEN  *  timers  *) 


begin  ~ 

update_window( ) ;  (*  update  window  control  info  *) 

if  (ex_f lag=false)  then 
begin 

mes_EA. module  :=  l_module  *  16;  (*  shift  l_mod  to  d_mod,  _ 

leave  l_mod  blank  *) 

mes_£A. message  :=  0; 

mes_EA. s_IP_addr  :  =  d_ip_addr;  _ 

mes_EA.d_IP_addr  :=  s_ip_addr; 

mes_EA. tpdu . length  :=  DT_VAR-1;  (*  length  of  EA  TPDU  *) 
mes_EA . tpdu . tpdu_code  :=  EAC0DE*16  +  rcv_cdt;  ~ 

mes_EA. tpdu • dst_ref  : =  r_ref; 
if  ( r_ack_seq<rcv_seq)  then 

begin  — 

r_ack_seq  :=  rcv_seq; 
r_sub_seq  : =  0 ; 

mes_EA . tpdu . seq_no  : =  r_ack_seq ;  _ 

end; 
else 

begin 

mes_EA . tpdu . seq_no  : =  r_ack_seq ; 
r_sub__seq  :=  r_sub_seq+l ; 

mes_EA. tpdu . length  :=  mes_EA. tpdu . length+4 ; 
d_append(mes_EA. tpdu,  encode_subseq) ;  — 

end; 

if  (ch_flag)  then 

begin  _ 

mes_EA.  tpdu .  length  :=  mes_EA.  tpdu .  length-^4  ; 
d_append(mes_EA. tpdu,  encode_chksum) ; 

set_checksum(mes_EA. tpdu,  mes_EA. tpdu . length,  DT_VAR+3); 
end; 

end; 

else  (*  ex_flag=true  *) 

begin  ~ 

me s_EAe .module  :=  l_module  *  16;  (*  shift  l_mod  to  d_mod, 

leave  l_mod  blank  *) 

mes_EAe .message  :=  0;  _ 

mes_EAe. s_IP_addr  :=  d_ip_addr; 
mes_EAe.d_IP_addr  : =  s_ip~addr; 

mes_EAe . tpdu . length  : =  DTe_VAR-l;  (*  length  of  EAe  TPDU  * 
mes_EAe . tpdu . tpdu_code  :=  EAeCODE*16; 
mes_EAe . tpdu .cdt  :»  rcv_cdt; 
mes_EAe. tpdu .dst_ref  :=  r_ref; 
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if  (ch_flag)  then 
begin 

mes_EAe . tpdu . length  :=  mes_EAe . tpdu . length+4 ; 
d_append(mes_EAe. tpdu,  encode_chksum) ; 
s e t_c hecks urn ( mes_EAe . tpdu,  mes_EAe . tpdu . length, 

DTe_VAR+3 ) ; 

end; 

if  ( r_ack_seq<rcv_seq )  then 
begin 

r_ack_seq  :=  rcv_seq; 
r_sub_seq  :=  0; 

mes_EAe . tpdu . seq_no  : =  r_ack_seq ; 
end; 
else 

begin 

mes_EAe . tpdu . seq_no  :=  r_ack_seq; 
r_sub_seq  :=  r_sub_seq+l; 

mes_EAe . tpdu . length  :=  mes_EAe . tpdu . length+4 ; 
d_append ( mes_EAe . tpdu ,  encode_subseq ) ; 
end; 

end; 

end; 


procedure  trans_CR; 

(*  translate  CR  of  ISO-TP4  to  GW  format,  in  case  of 
CLOSED  *  CR  *) 


begin 

tp_mes .module  :=  mes_CR .module; 
tp_mes .message  :=  mes_CR .message; 
tp_mes . s_IP_addr  :=  mes_CR. s_IP_addr ; 
tp_mes .d_IP_addr  : =  mes_CR.d_IP_addr; 

tp_mes . tpdu_code  :=  mes_CR . tpdu . tpdu_code/l6 ; 

tp_mes .dst_ref  : =  g_ref; 

t p_mes . s  rc_re  f  : =  l_re  f ; 

tp_mes . class  :=  mes_CR. tpdu. class ; 

tp_mes . v_length  :=  mes_CR . tpdu . length  -  tpdu_fixed( )  +1; 

tp_mes . var_part  : =  d_create ( tp_mes . v_length ) ; 

d_puts  ( tp_mes . var_part ,  1,  mes_CR. tpdu . var_part ) ; 

tp_mes .d_length  :=  d_length(mes_CR. tpdu. data) ; 

tp_mes.data  :=  d_create( tp_mes .d_length) ; 

d_puts  ( tp_mes .data,  1,  mes_CR. tpdu. data) ; 

end; 
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procedure  tr ans_CC; 

(*  translate  CC  of  IS0-TP4  to  GW  format,  in  case  of 
WFCCiso  *  CC  *) 


begin 

tp_mes .module  :=  mes_CC .module ; 
tp_mes .message  :=  mes_CC .message; 
tp_mes  .  s_IP_addr  :=  mes_CC . s_IP_addr ; 
tp_mes.d_IP_addr  :=  mes~CC.d_IP_addr; 

tp_mes . tpdu_code  :=  mes_CC . tpdu . tpdu_code/ 16 ; 

tp_mes . dst_ref  :=  g_ref; 

tp_mes . src_ref  :=  l_ref; 

tp_mes . class  :=  mes_CC . tpdu . class ; 

tp_mes . v_length  :=  mes_CC . tpdu . length  -  tpdu_fixed( )  +1; 

tp_mes . var_part  :=  d_create( tp_mes . v_length) ; 

d_puts  ( tp_mes . var_part,  1,  mes_CC . tpdu . var_part ) ; 

tp_mes . d_length  :=  d_length(mes_CC . tpdu .data) ; 

tp_mes.data  :  =  d_create( tp_mes .d_length) ; 

d_puts  ( tp_mes . data ,  1,  mes_CC . tpdu . data ) ; 

end; 


procedure  trans_DR; 

(*  translate  DR  of  IS0-TP4  to  GW  format,  in  case  of 
WFCCout,  AKWAIT,  OPEN  *  DR  *) 


begin 

tp_mes .module  :=  mes_DR .module ; 
tp_mes .message  :=  mes_DR .message; 
tp_mes . s_IP_addr  :  =  mes_DR.s_IP_addr ; 
tp_mes .d_IP_addr  :=  mes_DR.d_IP_addr; 

tp_mes . tpdu_code  : -  mes_DR . tpdu . tpdu_code/ 16 ; 

tp_mes .dst_ref  :=  g_ref; 

tp_mes . src_ref  ;=  l_ref; 

tp_mes . reason  :=  mes_DR. tpdu. reason; 

tp_mes . v_length  :=  mes_DR . tpdu . length  -  tpdu_fixed( )  +1; 

tp_mes .  var_part  :  *  d_create  ( tp_mes  .  v_length ) ; 

d_puts  ( tp_mes  .  var_part ,  1,  mes_DR.  tpdu .  var_part )  ; 

tp_mes .d_length  :=  d_length(mes_DR. tpdu. data) ; 

tp_mes.data  :=  d_create( tp_mes .d_length) ; 

d_puts  ( tp_mes .data,  1,  mes_DR. tpdu. data) ; 

end ; 
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procedure  trans_DT; 

(*  translate  DT  of  IS0-TP4  to  GW  format,  in  case  of 
AKWAITiso,  OPEN  *  DT  *) 


begin 

tp_mes .dst_ref  :=  g_ref; 
tp_mes . src_ref  :=  l_ref; 
if  ( ex_f lag=false )  then 
begin 

tp_mes .module  :=  mes_DT. module ; 
tp_mes .message  :=  mes_DT .message ; 
tp_mes . s_IP_addr  :=  mes_DT.s_IP_addr; 
tp_mes .d_IP_addr  : *  mes_DT.d_IP_addr; 
tp_mes . tpdu_code  :=  mes_DT . tpdu . tpdu_code/ 16 ; 
tp_mes. class  :=  mes_DT . tpdu . class ; 

tp_mes . v_length  :=  mes_DT . tpdu . length  -  tpdu_fixed( )  +1; 
tp_mes . var_part  :=  d_create ( tp_mes . v_length ) ; 
d_puts  ( tp_mes . var_part ,  1,  mes_DT. tpdu.var_part) ; 
tp_mes .d_length  :=  d_length(mes_DT . tpdu . data ) ; 
tp_mes.data  :=  d_create ( tp_mes . dlength ) ; 
d_puts  ( tp_mes .data,  1,  mes_DT.tpdu.data) ; 
end; 
else 

begin 

tp_mes .module  :=  mes_DTe. module; 
tp_mes .message  :=  mes_DTe . message ; 
tp^mes . s_IP_addr  : =  mes_DTe . s_IP_addr ; 
tp_mes .d_IP_addr  :=  mes_DTe . d_IP_addr ; 
tp_mes . tpdu_code  : =  mes_DTe . tpdu . tpdu_code/l6 ; 
tp_mes. class  :=  mes_DTe . tpdu . class ; 

tp_mes . v_length  :=  mes_DTe . tpdu . length  -  tpdu_fixed( )  +1 

tp_mes . var_part  :=  d_create( tp_mes . v_length) ; 

d_puts  ( tp_mes . var_part ,  1 ,  mes_DTe . tpdu . var_part ) ; 

tp_mes . d_length  :=  d_length(mes_DTe . tpdu .data ) ; 

tp_mes.data  :=  d_create( tp_mes -d_length) ; 

d_puts  ( tp_mes . data ,  1,  mes_DTe. tpdu. data) ; 

end; 

end ; 


procedure  trans_ED; 

(*  translate  ED  of  IS0-TP4  to  GW  format,  in  case  of 
AKWAITiso,  OPEN  *  ED  *) 

begin 

tp_mes . dst_ref  :=  g_ref; 
tp_mes . src_ref  :=  l_ref; 
if  (ex_flag=false)  then 
begin 

tp_mes .module  mes  ED. module; 
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tp_mes .message  :=  mes_ED .message; 
tp_mes . s_IP_addr  :=  mes_ED . s_IP_addr ; 
tp_mes . d_IP_addr  :=  mes_ED.d_IP_addr; 
tp_mes . tpdu_code  :=  mes_ED . tpdu . tpdu_code/ 16 ; 
tp_mes. class  :=  mes_ED . tpdu . class ; 

tp_mes . v_length  :=  mes_ED . tpdu . length  -  tpdu_fixed( )  +1; 
tp_mes . var_part  :=  d_create ( tp_mes . v_length ) ; 
d_puts  ( tp_mes . var_part ,  1,  mes_ED . tpdu . var_part ) ; 
tp__mes  . d_length  :=  d_length(mes_ED.  tpdu. data)  ; 
tp_mes.data  :=  d_create( tp_mes .d_length) ; 
d_puts  ( tp_mes .data,  1,  mes_ED . tpdu . data ) ; 
end; 
else 

begin 

tp_mes . module  :=  mes_EDe . module ; 
tp_mes .message  :=  mes_EDe . message ; 
tp_mes . s_IP_addr  :=  mes_EDe . s_IP_addr ; 
tp_mes . d_IP_addr  :=  mes_EDe . d_IP_addr ; 
tp_mes  .  tpdu_code  :=  mes_EDe  .  tpdu .  tpdu__code/ 16  ; 
tp_mes . class  :=  mes_EDe . tpdu . class ; 

tp_mes . v_length  :=  mes_EDe . tpdu . length  -  tpdu_fixed( )  +1 

tp_mes . var_part  :  =  d_create( tp_mes . v_length) ; 

d_puts  ( tp_mes . var_part,  1,  mes_EDe . tpdu . var_part ) ; 

tp_mes . d_length  :=  d_length(mes_EDe . tpdu . data ) ; 

tp_mes.data  :=  d_create( tp_mes .d_length) ; 

d_puts  ( tp_mes .data,  1,  mes_EDe . tpdu . data ) ; 

end; 

end; 


procedure  make_DRg  (reason); 

(*  makeup  DRg  in  GW  format,  in  case  of 
WFCCiso  *  CC  not  acceptable, 
WFCCiso ,  AKWAIT,  OPEN  *  ER, 
retrans_timer  &  count=max, 
inact_timer  * ) 

begin 

tp_mes .module  :=  g_module  *  16; 
tp_mes .message  :=  0; 
tp__mes  .  s_IP_addr  :=  s_ip_addr; 
tp_mes . d_IP_addr  : =  d_ip_addr; 

tp_mes . tpdu_c°de  :=  DRCODE; 
tp__mes .  dst_ref  :=  g_ref; 
tp^mes . src_ref  :=  l_ref; 
tp^mes . reason  : =  reason; 
tp_mes . v_length  :  =  0; 
tp_mes . d_length  :=  0; 
end; 
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procedure  trans_CRg; 

(*  translate  CR  of  GW  format  to  IS0-TP4  format,  in  case  of 
CLOSED  *  CRg  *) 


begin 

mes_CR .module  :=  tp__mes  .module; 
mes_CR. message  :=  tp_mes .message ; 
mes_CR. s_IP_addr  :=  tp_mes . s_IP_addr ; 
mes_CR.d_IP_addr  :=  tp_mes .d_IP_addr ; 

mes_CR . tpdu . tpdu_code  :=  tp__mes  .  tpdu_code  *  16; 

mes_CR .  tpdu  .  dst_ref  :=  r__ref; 

mes_CR . tpdu . src_ref  :=  l_ref; 

mes_CR. tpdu. class  :=  tp_mes .class ; 

tp_mes . var_part  :=  d_create( tp_mes . v_length) ; 

d_puts  (mes_CR. tpdu. var_part,  1,  tp_mes . var_part ) ; 

mes_CR . tpdu . data  : =  d_create( tp_mes .d_length) ; 

d_puts  ( mes_CR . tpdu . data ,  1,  tp_mes.data) ; 

end; 


procedure  trans_CCg; 

(*  translate  CC  of  GW  format  to  IS0-TP4  format,  in  case  of 
WFCCout  *  CCg  *) 


begin 

mes_CC .module  :=  tp_mes .module; 
mes_CC .message  :=  tp_mes .message ; 
mes_CC . s_IP_addr  :=  tp_mes . s_IP_addr ; 
mes_CC .d_IP_addr  :=  tp_mes .d_IP_addr ; 

mes_CC . tpdu . tpdu_c ode  :=  tp_mes . tpdu_code  *  16; 

mes_CC . tpdu .dst_ref  :=  r_ref; 

mes_CC . tpdu . src_ref  :=  l_ref; 

mes_CC . tpdu . class  :=  tp_mes .class ; 

tp_mes . var_part  :=  d_create ( tp_mes . v_length) ; 

d_puts  (mes_CC. tpdu . var_part ,  1,  tp_mes . var_part ) ; 

mes_CC. tpdu. data  :=  d_create ( tp_mes . d_length ) ; 

d_puts  (mes_CC . tpdu. data,  1,  tp_mes .data ) ; 

end ; 
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procedure  trans_DRg; 

(*  translate  DR  of  GW  format  to  IS0-TP4  format,  in  case  of 
WFCCiso,  WFCCout ,  AKWAITiso,  OPEN  *  DRg  *) 


begin 

mes_DR . module  :=  tp_mes .module ; 
mes_DR .message  :=  tp_mes .message; 
mes_DR . s_IP_addr  :=  tp_mes . s_IP_addr ; 
mes_DR . d_IP_addr  :=  tp_mes . d_IP_addr ; 

mes_DR. tpdu . tpdu_code  :=  tp_mes . tpdu_code  *  16; 

mes_DR . tpdu . dst_ref  :=  r_ref; 

mes_DR . tpdu . src_ref  :=  l_ref; 

mes_DR . tpdu . reason  :=  tp_mes . reason; 

tp_mes . var_part  :=  d_create( tp_mes . v_length) ; 

d_puts  (mes_DR. tpdu. var_part,  1,  tp_mes . var_part ) ; 

mes_DR. tpdu. data  ;=  d_create( tp_mes .d_length) ; 

d_puts  ( mes_DR . tpdu . data ,  1,  tp_mes . data ) ; 

end; 


procedure  trans_DTg; 

(*  translate  DT  of  GW  format  to  IS0-TP4  format,  in  case  of 
AKWAITout,  OPEN  *  DTg  *) 

begin 

if  (ex_f lag=false)  then 
begin 

mes_DT. module  tp_mes .module; 
mes_DT. message  :=  tp_mes .message; 
mes_DT. s_IP_addr  : *  tp_mes . s_IP_addr ; 
mes_DT . d_IP_addr  :=  tp_mes . d_IP_addr ; 

mes_DT . tpdu . tpdu_code  :=  tp_mes . tpdu_code  *  16; 

mes_DT. tpdu.dst_ref  :=  r_ref; 

mes_DT. tpdu . src_ref  :=  l_ref; 

mes_DT. tpdu .class  :=  tp_mes . class ; 

tp_mes . var_part  : *  d_create ( tp_mes . v_length ) ; 

<J_puLs  (  uies_DT  .  tpdu  .  var_par  L  ,  1,  Up_mes  .  var  par  L  )  ; 

mes_DT . tpdu . data  :=  d_create ( tp_mes . d_length ) ; 
d_puts  (mes_DT. tpdu. data,  1,  tp_mes . data ) ; 
end; 

else  (*  ex_flag=true  *) 
begin 

mes_DTe .module  s=  tp_mes .module; 
mes_DTe .message  j=  tp_mes .message; 
mes_DTe . s_IP_addr  :=  tp_mes . s_IP_addr ; 
mes_DTe .d_IP_addr  : =  tp~mes .d_IP_addr ; 

mes_DTe . tpdu . tpdu_code  tp_mes . tpdu_code  *  16; 
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mes_DTe . tpdu . dst_ref  :*  r_ref; 

mes_DTe . tpdu . src_ref  : =  l_ref; 

mes_DTe . tpdu . class  :=  tp_mes .class ; 

tp_mes . var_part  :=  d_create ( tp_mes . v_length ) ; 

d_puts  ( mes_DTe . tpdu . var_part ,  1,  tp_mes.var_part); 

mes_DTe . tpdu . data  :=  d_create ( tp_mes . d_length ) ; 

d_puts  ( mes_DTe . tpdu . data ,  1,  tp_mes . data ) ; 

end; 

end; 


procedure  trans_EDg; 

(*  translate  ED  of  GW  format  to  IS0-TP4  format,  in  case  of 
AKWAITout ,  OPEN  *  EDg  *) 


begin 

if  ( ex_f lag=f alse )  then 
begin 

mes_ED .module  :=  tp_mes . module ; 
mes_ED .message  :=  tp_mes .message ; 
mes_ED . s_IP_addr  : =  tp_mes . s_IP_addr ; 
mes_ED . d_IP_addr  :=  tp_mes . d_IP_addr ; 

mes_ED . tpdu . tpdu_code  :=  tp_mes . tpdu_code  *  16; 

mes_ED. tpdu.dst_ref  :  =  r_ref; 

mes_ED. tpdu . src_ref  :=  l_ref; 

mes_ED . tpdu . class  :=  tp_mes . class ; 

tp_mes . var_part  :=  d_create( tp_mes . v_length ) ; 

d_puts  (mes_ED . tpdu . var_part ,  1,  tp_mes.var_part); 

mes_ED. tpdu . data  :=  d_create( tp_mes . d_length ) ; 

d_puts  ( mes_ED . tpdu .data,  1,  tp_mes . data ) ; 

end ; 

else  (*  ex_flag=true  *) 
begin 

mes_EDe .module  :=  tp_mes .module; 
mes_EDe .message  :=  tp_mes .message; 
mes_EDe . s_IP_addr  :  =  tp_mes . s_IP_addr ; 
mes_EDe . d_IP_addr  :*  tp_mes . d_IP_addr; 

mes_EDe . tpdu . tpdu_code  :=  tp_mes . tpdu_code  *  16; 

mes_EDe . tpdu . dst_ref  :=  r_ref; 

mes_EDe . tpdu . src_ref  :=  l_ref; 

mes_EDe . tpdu . class  :=  tp_mes . class ; 

tp_mes . var_part  :=  d_create( tp_mes .v_length) ; 

d_puts  (mes_EDe . tpdu . var_part ,  1,  tp_mes . varpart ) ; 

mes_EDe . tpdu . data  :=  d_create ( tp_mes . d_length ) ; 

d_puts  ( mes_EDe . tpdu .data ,  1,  tp_mes . data ) ; 

end ; 

end; 
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procedure  check_queue;  primitive; 

(*  Check  all  the  TPDUs  in  the  re-trans  queue  for  re¬ 
transmission  if  necessary. 

As  specified  in  TS  8073,  it  is  implementation-dependent 
to  have  timer  control  over  the  1st  TPDU  only  and  re¬ 
transmit  all  TPDUs  in  the  queue  on  time-out;  or  to  have 
timer  control  over  all  the  single  TPDUs  in  the  re-trans 
queue .  * ) 
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^  *  *  * 
(  *** 
^  *** 


Initialization 


***  ^ 
***  ^ 
***  j 


initialize 

state  :=  CLOSED; 
proto_err  :=  0; 

exp_flag  :=  false; 
exp_seq  : =  0  ; 
exp_que.last  :=  0; 


/  *** 

^  *** 
^  *** 


Transitions  of  TP4  machine 


*  ★  *  J 

*  *  *  J 
***  j 


(***  GROUP-1:  TPDU  from  IS0-TP4  ***) 

(***  State_transition  from  CLOSED  ***) 


trans 

when  TP4M_I .TP4M_MESind  (*  CR  from  TP4  *) 

provided  (( TP4_code ( message ) =CRCODE ) )  and  (l_ref=0)) 
from  CLOSED  to  same 

begin  (*  no  conn  available  *) 

build_DR  ( R_peer_congest ion ,  message); 
output  TP4M_O.TP4M_MESreq(mes__DR)  ; 
end; 
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trans 

when  TP4M_I . TP4M_MESind  (*  CR  from  TP4  *) 

provided  ( (TP4_code( message ) =CRCODE) )  and  (l_ref<>0)) 
from  CLOSED 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param{ ) ; 
if  ( acceptable_CR=f alse)  then 
begin 

build_DR  ( R_CR__re fused ,  message); 
output  TP4M_0 . TP4M_MESreq  (mes_DR) ; 

next _ state  : =  same; 

end ; 
else 

begin 

send_seq  : =  0 ; 
send_cdt  :=  cdt; 
s_sub_seq  : =  0  ; 
s_ack_seq  :=  0; 

(*  increase_count ;  *) 

(*  set_retrans_timer ;  *) 

(*  These  two  actions  are  specified  in  the  original  IS 
8073.  But  there  might  be  some  mistakes  in  it,  because 
there  is  no  specification  in  the  CLASS-4  state  table 
for  the  following  state  (WFTRESP)  with  the  event  of 
retrans_timer ,  and  for  the  case  of  count  exceeding  the 
limit.  It  is  assumed  here  that  the  CR_receiving  side 
will  passively  wait  for  the  TCONind  from  TP-4  user,  or 
CRg  from  the  TP-GW.  If  either  the  TCONind  or  CRg  never 
comes,  the  calling  TP-4  will  finally  timeout  on  the  CR, 
and  will  send  DR  to  terminate  the  connection 
establishment  process.  *) 

rcv_seq  : =  0 ; 
rcv_cdt  :=  set_credit; 
r_sub__seq  :  =  0 ; 
r_ack_seq  : =  0 ; 
trans_CR; 

output  TP4I_O.TP4I_MESreq( tp_mes ) ;  (*  send  translated 

message  to  linker  *) 

next_state  :=  WFCCout; 
end; 

end; 
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trans 

when  TP4M_I.TP4M_MESind 

provided  (TP4_code( message)  =  CCCODE) 
from  CLOSED  to  SAME 

begin 

build_DR( R_ref_mismatched ,  message) ; 
output  TP4M_O.TP4M_MESreq(mes_DR) ; 
end; 


trans 

when  TP4M_I .TP4M_MESind 

provided  ( TP4_code ( message )  =  DRCODE) 
from  CLOSED  to  SAME 

begin 

ptr_DR  :=  ''message  .  data ; 
if ( ptr_DR. src^ref <>0 )  then 
build_DC( message) ; 

output  TP4M_0 .TP4M_MESreq(mes_DC ) ; 

end; 


trans 

when  TP4M_I.TP4M_MESind 

provided  ( ( TP4_code ( message ) 
( TP4_code ( message ) 
( TP4_code ( message ) 
( TP4_code ( message ) 
( TP4_code ( message ) 
( TP4_code{ message ) 
from  CLOSED  to  SAME 


s 

DTCODE ) 

or 

X 

AKCODE ) 

or 

= 

EDCODE ) 

or 

= 

EACODE ) 

or 

= 

DCCODE ) 

or 

= 

ERCODE ) 

) 

begin 

proto_err  : =  proto_err+l; 
end; 
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(***  State_transition  from  WFCCiso  ***) 


trans 

when  TP4M_I .TP4M_MESind 

provided  (TP4_code( message)  =  CCCODE) 
from  WFCCiso 

var 

retrans_ptr  ':=  ~retrans_type ; 

begin 

s top_re transit imer ; 
accept_TPDU  (message); 
accept_TP4_param{ ) ; 
if  ( acceptable_CR( ) )  then 
begin 

send_seq  : =  0 ; 
send_cdt  :=  cdt; 
s_sub_seq  :=  0; 
s_aok_seq  :=  0; 

re_trans . total  :=  re_trans . total- 1 ;  (*  remove  CR  from 

retrans_queue  * ) 

set_window_timer ; 
set_inact_t imer ; 
trans_CC ; 

output  TP4I_O.TP4I_MESreq(tp_mes) ;  (*  send  translated 

message  to  linker  *) 

next_state  :=  AKWAITout ; 
end; 

else  (*  CC  not  acceptable  *) 

begin 

build_DR( R_negotiation_f ailed,  message); 
output  TP4M_O.TP4M_MESreq(mes_DR) ; 

retrans_ptr  :=  re_trans . buf [ 1 ] ;  (*  replace  CR  with  DR  *) 

retrans_ptr .data  :=  mes_DR; 

retrans_ptr .count  :=  1; 

retrans_ptr. timer  :=  RETRANS_TIME ; 

set_retrans_t imer; 

make_DRg; 

output  TP4I_O.TP4I_MESreq( tp_mes ) ;  (*  send  TDISind  *) 

next_state  :=  CLOSING; 

end; 

end; 


(*  for  CR  *) 

(*  take  in  the  TPDU  *) 
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trans 

when  TP4M_I . TP4M_MESind 

provided  ( TP4_code (message )  =  DRCODE) 
from  WFCCiso  to  REFWAIT 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ;  (*  but  DC  is  not  needed  *) 

set_ref_t imer ; 
trans_DR; 

output  TP4 I_0 . TP4I_MESreq( tp_mes ) ;  (*  send  TDISind  to  linker  *) 

end; 


trans 

when  TP4M_I . TP4M_MESind 

provided  (TP4_code(message)  =  ERCODE) 
from  WFCCiso  to  REFWAIT 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ; 
set_ref_t imer; 
make_DRg ; 

output  TP4I_O.TP4I_MESreq( tp_mes ) ;  (*  send  TDISind  to  linker  *) 

end; 
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(***  State_transition  from  WBCL  ***) 


trans 

when  TP4M_I .TP4M_MESind 

provided  (TP4_code( message)  =  CCCODE) 
from  WBCL  to  CLOSING 

var 

retrans_ptr  :  retrans_type; 

begin 

stop_retrans_timer ; 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ; 

build_DR( R_negotiation_f ailed,  message) ; 

output  TP4M_O.TP4M_MESreq(mes_DR) ; 

retrans_ptr  : =  re_trans . buf [ 1 ] ; 

retrans_ptr . data  :=  mes_DR;  (*  replace  CR  *) 

retrans_ptr . count  :=  1; 

retrans_ptr. timer  :=  RETRANS_TIME ; 

set_retrans_timer ; 

end; 


trans 

when  TP4M_I .TP4M_MESind 

provided  ( (TP4^code( message)  =  DRCODE )  or 
(TP4_code( message)  =  ERCODE)  ) 
from  WBCL  to  REFWAIT 

begin 

set_ref_timer; 

end; 
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^  *  *  * 


State  transition  from  WFCCout 


*  *  *  j 


trans 

when  TP4M_I . TP4M_MESind 

provided  (TP4_code( message)  =  CRCODE) 
from  WFCCout  to  SAME 

begin 

null;  (*  waiting  for  TCONresp  *) 

end; 


trans 

when  TP4M_I . TP4M_MESind 

provided  ( TP4_code ( message )  =  DRCODE) 
from  WFCCout  to  CLOSED 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ; 
build_DC (message) ; 

output  TP4M_0 . TP4M_MESreq ( mes_DC ) ; 
trans_DR; 

output  TP4I_O.TP4I_MESreq(tp_mes) ;  (*  send  TDISind  to  linker  *) 
flag_kill_me  :=  now;  (*  terminate  the  TPM  *) 

end; 


^  ★ 


State  transition  from  AKWAIT 


*  *  *  j 


trans 

when  TP4M_I .TP4M_MESind 

provided  (TP4_code( message)  =  CRCODE) 
from  AKWAIT  to  SAME 

var 

retrans_ptr:  retrans_type; 


begin 

s top_retrans_t imer ; 
retrans_ptr  :=  re_trans . buf [ 1 ] ; 

output  TP4M_0 . TP4M_MESreq( retrans_ptr . data ) ;  (*  retrans  CC  *) 

retrans_ptr . count  :=  1; 

retrans_ptr. timer  :=  RETRANS_TIME ; 

set_retrans_t imer ; 

end  ; 


trans 

when  TP4M__I  .TP4M_MESind 

provided  (TP4_code( message)  =  ERCODE ) 
from  AKWAIT  to  CLOSING 

var 

retrans_ptr:  retrans_type; 


begin 

stop_retrans_t imer; 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ; 
retrans_ptr  : -  re_trans . buf ( 1 ] ; 
build_DR( Rjprotocol_error ,  message) ; 
output  TP4M_O.TP4M_MESreq(mes_DR) ; 

retrans_ptr .data  :=  mes_DR;  (*  replace  CC  with  DR  *) 

retrans_ptr .count  :=  1; 

retrans_ptr. timer  :=  RETRANS_TIME ; 

set_retrans_timer ; 

make_DRg; 

output  TP4l_O.TP4I_MESreq( tp_mes ) ;  (*  send  TDISind  *) 

end; 
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trans 

when  TP4M_I .TP4M_MESind 

provided  (TP4_code( message)  =  DRCODE) 
from  AKWAIT  to  REFWAIT 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ; 

build_DC (message) ; 

output  TP4M_O.TP4M_MESreq(mes_DC) ; 

set_ref_timer ; 

trans_DR; 

output  TP4 I_0 . TP4 I_MESreq ( tp_mes ) ;  (*  send  TDISind  *) 

end; 
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(  *** 


State  transition  from  AKWAITiso 


*  *  *  J 


trans 

when  TP4M_I . TP4M_MESind 

provided  (TP4_code( message)  =  DTCODE) 
from  AKWAITiso  to  OPEN 

var 

out_flag:  logical; 
begin 

s top_retrans_timer ; 
re_trans . last  :=  0; 

accept_TPDU  (message); 
accept_TP4_param( ) ; 
out_flag  :=  false; 
if  ( (TP4_code( message )=DTC0DE)  and  ( acceptable_DT=true ) )  then 
begin 
trans_DT; 
out_flag  :=  true; 
end; 

else  if ( (TP4_code( message ) =EDC0DE)  and  ( acceptable_ED=true ) ) 
then 
begin 
trans_ED; 
out_flag  :=  true; 
end; 

else  if ( (TP4_code (message ) *AKCODE)  and  ( acceptable_AK=true ) ) 
then 
begin 
trans_AK; 
out_flag  :=  true; 
end; 

if  (out_flag=true)  then 

output  TP4l_O.TP4l_MESreq( tp_mes) ; 
set_inact_timer ; 

set_inact_ack_timer;  (*  for  sending  AK  at  suitable 

interval  in  absence  of 
DT  or  ED  *) 

end; 


(*  no  more  re-trans  CC  *) 
(*  clear  re-trans  queue  *) 

(*  take  in  the  TPDU  *) 
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(***  State_transition  from  OPEN  ***) 


trans 

when  TP4M_I.TP4M_MESi.nd 

provided  (TP4_code( message)  =  CRCODE) 
from  OPEN  to  SAME 

begin 

stop_inact_timer ; 
set_inact_t imer ; 
end; 


trans 

when  TP4M_I .TP4M_MESind 

provided  (TP4_code( message)  =  CCCODE) 
from  OPEN  to  SAME 

begin 

stop_inact_t imer; 
make_AK; 

output  TP4M_0 .TP4M_MESreq  (mes_AK) ; 

set_inact_t imer; 

end; 


trans 

when  TP4M_I .TP4M_MESind 

provided  ( TP4_code (message)  =  ERCODE ) 
from  OPEN  to  CLOSING 

var 

retrans_ptr:  retrans_type; 


begin 

stop_window_timer ; 
stop_inact_t ime  r ; 
stop_retrans_timer ; 

accept_TPDU  Jmessage);  (*  take 

accept_TP4_param( ) ; 

build_DR( R2protocol-_error '  message) ; 

output  TP4M_0 . TP4M_MESreq ( mes_DR ) ; 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 

retrans_ptr .data  s=  mes_DR; 

retrans_ptr .count  :=  1; 

retrans_ptr . timer  :*  RETRANS_TIME; 

se t_re trans_t imer ; 

make_DRg; 

output  TP4I_O.TP4I_MESreq( tp_mes ) ;  (* 

end; 


(*  duplicated  CC  *) 
(*  repeat  AK  *) 


in  the  TPDU  *) 

send  TDISind  to  linker  * ) 
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trans 

when  TP4M_I . TP4M_MESind 

provided  (TP4_code( message)  =  DRCODE) 
from  OPEN  to  REFWAIT 

var 

retrans_ptr:  retrans_type ; 


begin 

stop_retrans_timer ; 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ; 

build_DC (message ) ; 

output  TP4M_O.TP4M_MESreq(mes_DC) ; 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 

retrans_ptr . data  :=  mes_DC; 

retrans_ptr . count  :=  1; 

retrans_ptr . timer  :=  RETRANS_TIME ; 

set_retrans_timer ; 

trans_DR; 

output  TP4I_O.TP4l_MESreq( tp_mes ) ;  (*  send  TDISind  to  linker  *) 

set_ref_timer ; 

end; 


trans 

when  TP4M_I . TP4M_MES ind 

provided  ( TP4_code( message)  =  DTCODE ) 
from  OPEN  to  SAME 

begin 

stop_inact_t imer ; 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ; 

if  (seq  =  rcv_seq)  then  (*  DT  in  sequence  *) 

begin 
trans_DT; 

output  TP4I_O.TP4I_MESreq( tp_mes ) ; 
set_data_ack_timer;  (*  set  timer  to  ack 

during  A_1  * ) 

rcv_seq  :=  rcv_seq  +  1; 

while  ( ( re_order . last>0 )  and  (*  check  re-seq  queue  *) 
( rc v_seq=re_order . bu  f [ 1 ] . seq ) )  do 
begin 

message  :=  re_order . buf [ 1 ] .data; 
trans_DT; 

output  TP4I_O.TP4I_MESreq(tp_mes) ; 
rcv_seq  :  =  rcv__seq  +  1; 
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for  i:-2  to  re_order . last  do 

re_order . buf [ i- 1 ]  :=  re_order . buf [ i ] ; 
re_order . last  :=  re_order . last  -1; 

end; 

else  if ( ( ( seq<rcv_seq)  and  ( seq>rcv_seq-MAX_CDT) )  or 
( ( seq>rcv_seq+rcv_cdt )  and 
( seq< rcv_seq+rcv_cdt +MAX_CDT ) ) )  then 

(*  out  of  window,  but  whthin  limit 
AKed  with  flow  Ctrl  info  *) 

begin 
make_AK ; 
append_f low; 

output  TP4M_0 . TP4M_MESreq ( mes_AK ) ; 
end; 

else 

begin  (*  not-in-seq  handling  *) 

j  :  =  0  ; 

for  i  :=  1  to  re_order . last  do 

if  ( ( seq>re_order . buf [ i ] . seq )  and  (j=0))  then 

j  :»  i; 

for  i:=j  to  re_order . last  do 

re_order . buf [ i+1 ]  : =  re_order . buf [ i ] ; 
re_order . buf ( i ] . seq  :=  seq; 

re_order .buf [ i] .data  :=  message;  (*  queued  *) 
end; 

set_inact_t imer ; 
end; 


trans 

when  TP4M_I .TP4M_MESind 

provided  (TP4_code( message)  =  AKCODE) 
from  OPEN  to  SAME 

begin 

stop_inact_t imer; 
stop_retrans_timer ; 

accept_TPDU  (message);  (*  taxe  in  the  TPDU  *) 

accept_TP4_param( ) ; 

if  ((seq  >  s_ack_seq)  or  ( *  AK  in  sequence  *) 

( ( seq=s_ack_seq)  and  ( sub_seq>s_sub_seq) ) )  then 
begin 

s_ack_seq  :=  seq; 
s_sub_seq  :*  sub_seq; 

while  ( (re_trans . last>0)  and  (*  check  re-seq  queue 
(  s_ack_seq>=sre_trans  .  buf  ( 1  ]  .  seq )  )  do 
begin 

for  i : -2  to  re_trans . last  do 

re_trans . buf [ i-1 ]  : =  re_trans .buf ( i ) ; 
re_trans . last  re_trans . last  -1; 

end; 
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(*  else,  automatic  drop  the  AK  *) 

if  ( re_trans . last>0)  then 
set_retrans_timer; 
set_inact_timer ; 
end; 


trans 

when  TP4M_I .TP4M_MESind 

provided  (TP4_code( message)  =  EDCODE ) 
from  OPEN  to  SAME 

var 

out_f lag:  logical; 
begin 

stop_inact_timer ; 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ; 

trans_ED; 

output  TP4 1  0.TP4I  MESreq(tp  mes )  ; 

build__EA;  ~  ”  ~ 

output  TP4M_O.TP4M_MESreq(mes__EA)  ; 

re_hrans . last  : -  re_trans . last  +  1; 

retrans__ptr  :=  re_trans  .  buf  [  re_trans  .  last  ] ; 

retrans_ptr .data  :=  mes_EA; 

retrans_ptr .count  :=  0; 

retrans_ptr . timer  : =  RETRANS_TIME ; 

set _retrans_timer ; 

set_inact_timer ; 

end ; 


trans 

when  TP4M_I . TP4M_MESind 

provided  (TP4  code (message) 
from  OPEN  to  SAME 

begin 

stop_inact_timer ; 
stop_retrans_timer; 
accept_TPDU  (message); 
accept_TP4_param( ) ; 

if  ( seq  >=  exp_seq)  then 
begin 

exp_seq  : =  0; 
exp__flag  :=  false; 


EACODE ) 

(*  take  in  the  TPDU  *) 

(*  EA  in  sequence  *) 

( *  OK  for  DT  to  go  now  * ) 
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while  ( exp_que . last>0 )  do 


( *  check  queued  DT  due  to 
ED  blocking  *) 


begin 

message  :=  exp_que . buf [ 1 ]  ; 
trans_DTg; 

output  TP4M_O.TP4M_MESreq(mes_DT) ; 

re_trans . last  : =  re_trans . last  +  1; 

retrans_ptr  :=  re_trans . buf [ re_trans . last ] ; 

retrans_ptr . data  :=  mes_EA; 

retrans_ptr . count  :=  0; 

retrans_ptr . timer  :=  RETRANS_TIME ; 

for  i:=2  to  exp__que .  last  do 

exp_que . buf [ i-1 ]  :=  exp_que . buf [ i ] ; 
exp_que.last  : =  exp_que.last  -1; 

end; 

if  ( exp_que . last>0 )  then 
set_retrans_timer ; 
set_inac t_timer ; 
end; 
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(***  State_transition  from  CLOSING  ***) 


trans 

when  TP4M_I .TP4M_MESind 

provided  ( (TP4_code( message)  =  CRCODE)  or 
(TP4_code( message)  =  CCCODE)  or 
( TP4_code ( message )  =  DTCODE)  or 
(TP4_code( message)  =  AKCODE)  or 
( TP4_code(message )  =  EDCODE)  or 
(TP4_code( message)  =  EACODE)  ) 
from  CLOSING  to  SAME 

var 

reason:  reason_type; 
begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  * 

accept_TP4_param( ) ; 
if  ( TP4_code ( message ) =CRCODE )  then 
reason  :=  R_CR_ref used ; 
else  if  (TP4_code( message)  =  CCCODE)  then 
reason  :=  R_negotiation_f ailed; 

else 

reason  :=  R_protocol_error ; 
build_DR( reason,  message); 
output  TP4M_O.TP4M_MESreq(mes_DR) ; 
end; 


trans 

when  TP4M_I .TP4M_MESind 

provided  ( (TP4_code( message)  =  DRCODE )  or 
(TP4_code( message)  =  DCCODE)  or 
(TP4_code( message)  =  ERCODE)  ) 
from  CLOSING  to  REFWAIT 

begin 

set_ref_timer ; 
end; 
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^  *  *  * 


State  transition  from  REFWAIT 


*  *  *  J 


trans 

when  TP4M_I .TP4M_MESind 

provided  (TP4_code( message)  =  CCCODE) 
from  REFWAIT  to  SAME 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ; 

build_DR( R_protocol_error ,  message) ; 
output  TP4M_O.TP4M_MESreq(mes_DR) ; 
end; 


trans 

when  TP4M_I .TP4M_MESind 

provided  (TP4_code( message)  =  DRCODE) 
from  REFWAIT  to  SAME 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

accept_TP4_param( ) ; 
if  (r_ref<>0)  then 

build_DC (message ) ; 

output  TP4M_O.TP4M_MESreq(mes_DC) ; 

end; 


trans 

when  TP4M_I . TP4M_MESind 

provided  (( TP4_code ( message ) 
(TP4_code( message) 
( TP4_code ( message ) 
( TP4_code ( message ) 
( TP4_code ( message ) 
( TP4_code ( message ) 
from  REFWAIT  to  SAME 


DTCODE )  or 
AKCODE)  or 
EDCODE)  or 
EACODE)  or 
DCCODE )  or 
ERCODE )  ) 


begin 

null;  (*  waiting  for  ref_timer  to  expire  *) 

end; 
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(***  GROUP-2:  timer-related  ***) 


trans 

from  WFCCiso 

provided  ( timer ( retrans ) ) 
var 

retrans_ptr:  ~retrans_type ; 

begin  (*  only  CR  in  retrans  queue  *) 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 
if  ( ret rans_ptr . count  <  RETRANS_MAX)  then 
begin 

output  TP4M_0.TP4M_MESreq(mes_CR) ;  (*  re- trans  CR  *) 
retrans_ptr . count  :=  retrans_ptr . count+1 ; 
retrans_ptr . timer  :=  RETRANS_TIME ; 
set_retrans_timer ; 
next_state  : =  SAME; 
end  ; 

else  begin  (*  count  =  max  *) 

stop_window_timer; 
stop_inact_timer ; 
if  ( local_choice=f alse )  then 
begin 

make_DR( R_retrans_timer ) ;  (*  unspecified  !  *) 

output  TP4M_O.TP4M_MESreq(mes_DR) ; 

retrans_ptr .data  :=  mes_DR; 

retrans_ptr .count  : =  1; 

retrans__ptr.  timer  :=  RETRANS_TIME ; 

set_retrans_timer ; 

make_DRg( R_retrans_timer ) ; 

output  TP4I_O.TP4I_MESreq( tp_mes) ;  (*  send  TDISind  *) 

next_state  :=  CLOSING; 

end; 

else  (*  local  choice  *) 

begin 

make_DRg( R_retrans_timer) ; 

output  TP4 I_0 . TP4 I_MESreq ( tp_mes ) ;  (*  send  TDISind  *) 
set_ref_timer ; 
next_state  REFWAIT; 
end; 

end;  (*  else  count=max  *) 

end; 
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trans 

provided  ( timer ( re trans ) ) 
from  WBCL 

var 

retrans_ptr:  retrans_type; 


begin 

retrans_ptr  :=  re _trans . buf  [  1 ] ;  (*  only  CR  in  queue  *) 

if  ( retrans_ptr . count  <  RETRANS_MAX)  then 
begin 

output  TP4M_O.TP4M_MESreq(mes_CR) ;  (*  re- trans  *) 

retrans_ptr . count  :=  retrans_ptr.count+l; 

retrans_ptr . timer  :=  RETRANS_TIME ; 

set_retrans_timer ; 

next_state  :*  SAME; 

end; 

else  (*  count  =  max  *) 

begin 

s top_window_timer ; 
stop_inact_t imer ; 
if  ( local_choice=f alse )  then 
begin 

make_DR( R_retrans_timer ) ; 

output  TP4M_0 . TP4M_MESreq ( mes_DR ) ; 

retrans_ptr .data  : =  mes_DR;  (*  replace  CR  *) 

retrans_ptr .count  :=  1; 

retrans_ptr. timer  :=  RETRANS_TIME; 

set_retrans_t imer ; 

next_state  :=  CLOSING; 

end; 

else  (*  not  local  choice  *) 

begin 

set_re  f__t  imer ; 
next_state  :=  REFWAIT; 
end; 

end;  (*  count  =  max  *) 

end; 
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trans 

provided  ( timer ( retrans ) ) 
from  AKWAIT 

var 

retrans_ptr:  retrans_type; 


begin 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 
if (retrans_ptr. count  <  RETRANS_MAX)  then 
begin 

output  TP4M_O.TP4M_MESreq(mes_CC) ;  (*  retrans  CC  *) 

retrans_ptr .count  :=  retrans_ptr . count+1 ; 

retrans_ptr. timer  :=  RETRANS_TIME ; 

set_retrans_timer; 

next_state  :  =  SAME; 

end; 

e^-se  (*  count  =  max  *) 

begin 

stop_window_timer ; 
stop_inact_timer; 
make_DR( R_retrans_timer ) ; 
output  TP4M_O.TP4M_MESreq(mes_DR) ; 

retrans_ptr .data  :=  mes_DR;  (*  replace  CC  with  DR  *) 

retrans_ptr .count  :=  1; 

retrans_ptr. timer  :=  RETRANS_TIME ; 

set_retrans_timer; 

make_DRg( R_retrans_timer ) ; 

output  TP4I_O.TP4I_MESreq( tp_mes ) ;  (*  send  TDISind  *) 

next_state  :*  CLOSING; 

end; 

end; 


trans 

from  OPEN 

provided  ( timer ( retrans ) ) 
var 

retrans jptr:  retrans_type; 

begin 

retrans_ptr  :=  re_trans .buf [ 1 ] ; 
if  (retrans_ptr. count  <  RETRANS_MAX )  then 
begin 

output  TP4M_O.TP4M_MESreq(retrans_ptr .data) ; 
retrans_j>tr .count  :=  retrans_ptr .count+1 ; 
retrans_ptr. timer  :=  RETRANS_TIME ; 
set_retrans_timer ; 

check_queue;  (*  check  for  re-trans  *) 

next_state  : =  SAME; 

end; 
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else  begin  (*  count=MAX  *) 

st°p_WLnd°w_timer ; 
stop_inact_timer ; 

re_trans . total  :=  1;  (*  remove  all  retrans  *) 

retrans_ptr  :=  re_trans . buf ( 1 ] ; 

make_DR( R_retrans_timer ) ; 

output  TP4M_O.TP4M_MESreq(mes_DR) ; 

retrans_ptr .data  :=  mes_DR; 

retrans_ptr .count  :=  1; 

retrans_ptr. timer  :=  RETRANS_TIME ; 

set_retrans_timer ; 

make_DRg( R_retrans_timer ) ; 

output  TP4l_O.TP4I_MESreq( tp_mes) ;  (*  send  TDISind  *) 
next_state  :=  CLOSING; 

end; 


trans 

provided  ( timer ( retrans ) ) 
from  CLOSING 

var 

retrans_ptr:  retrans_type; 


begin 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 
if  ( retrans_ptr .count  <  RETRANS_MAX )  then 
begin 

output  TP4M_O.TP4M_MESreq(mes_DR) ; 
retrans_ptr7count  :=  retrans_ptr.count-*-I; 
retrans_ptr . timer  :=  RETRANS_TIME ; 
set_retrans_timer ; 
next_state  :=  SAME; 
end;” 

else  (*  count  =  MAX  *) 

begin 

set_ref _timer ; 
next_state  :=  REFWAIT; 
end; 

end; 
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(*  need  to  update  window  info  *) 


trans 

provided  ( timer (window) ) 
from  OPEN  to  SAME 

var 

retrans_ptr:  retrans_type ; 

begin 

rcv_cdt  set_credit;  (*  get  new  credit  *) 
make_AK; 

append_flow;  (*  append  flow-ctrl  parameters  *) 

output  TP4M_0 . TP4M_MESreq(mes_AK) ; 

re_trans . last  :=  re_trans . last  +  1; 

retrans_ptr  :=  re_trans . buf [ re_trans . last ] ; 

retrans_ptr .data  :=  mes_AK; 

retrans_ptr . count  :=  0; 

retrans_ptr. timer  :=  RETRANS_TIME ; 

set_retrans_timer ; 

set _window_ timer; 

end; 


trans 

provided  ( timer ( data_ack) ) 

from  OPEN  to  SAME  (*  timer  for  acknowledge  of 

receiving  data  *) 

begin 

r_ack_seq  :=  rcv_seq; 
make_AK; 

output  TP4M_0 . TP4M_MESreq ( mes_AK ) ; 
end; 


trans 

provided  ( timer ( inact_ack) ) 

from  OPEN  to  SAME  (*  no  DT/ED  sent  in  the  interval; 

sending  AK  to  keep  active  *) 


begin 
make_AJK ; 

output  TP4M_O.TP4M_MESreq(mes_AK) ; 

set_inact_ack_timer ; 

end; 
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trans 

provided  ( timer ( inact ) ) 
from  OPEN  to  CLOSING 


retrans_ptr:  retrans_type ; 

begin 

stop_window_t imer ; 
stop_retrans_timer ; 

make_DR( R_inact_timer ) ;  (*  not  specified  !  *) 

output  TP4M_O.TP4M_MESreq(mes_DR) ; 

re_trans . total  :  =  1;  (*  remove  all  retrans  *) 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 

retrans_ptr . data  :=  mes_DR; 

retrans_ptr . count  :=  1; 

retrans_ptr . timer  :=  RETRANS_TIME ; 

set_retrans_timer; 

make_DRg( R_inact_timer ) ; 

output  TP4I_O.TP4l_MESreq( tp_mes ) ;  (*  send  TDISind  to  linker  *) 

end; 


trans 

provided  (timer (ref)) 

from  REFWAIT  to  CLOSED 

begin 

flag_kill_me  :=  now 
end; 
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(  *** 


GROUP-3:  TPDU  from  TRANSPORT  GATEWAY  ***) 


trans 

when  TP4I_I.TP4I_MES.ind  (*  CR  from  gateway  *) 

provided  ( TP_code ( message )  =  CRCODE) 
from  CLOSED  to  WFCCiso 

var 

retrans_ptr:  retrans_type ; 


begin 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

rcv_cdt  :=  set_credit; 

trans_CRg; 

output  TP4M_O.TP4M_MESreq(mes_CR) ; 
re_trans . total  :=  1; 
retrans_ptr  :=  re_trans . buf ( 1 ] ; 
retrans_ptr . data  :=  mes_CR; 
retrans_ptr .count  :=  1; 
retrans_ptr. timer  :  =  RETRANS_TIME ; 
set_retrans_t imer ; 
end; 


trans 

when  TP4 I_I . TP4 I_MESind 

provided  (TP_code( message)  =  DRCODE) 
from  WFCCiso 

var 

retrans_ptr:  retrans_type ; 


begin 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  * ) 

if  ( local_choice )  then 

next_state  :  =  WBCL; 

else  (*  not  local  choice  *) 

begin 

stop_retrans_timer ; 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

trans_DRg; 

output  TP4M_0 .TP4M_MESreq(mes_DR) ; 
re_trans . total  :=  1; 
retrans_ptr  :=  re_trans . buf [ 1 ] ; 
retrans_ptr . data  :=  mes_DR; 
retrans_ptr .count  :=  1; 
retrans_ptr . timer  :=  RETRANS_TIME ; 
set_retrans_timer ; 
end; 

end; 
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trans 

when  TP4 I_I . TP4 I_MESind 

provided  (TP_code( message)  =  CCCODE) 
from  WFCCout  to  AKWAITiso 

var 

retrans_ptr:  retrans_type; 


begin 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

rcv_cdt  :=  set_credit; 

trans_CCg; 

output  TP4M_O.TP4M_MESreq(mes_CC) ; 
re_trans . total  :=  1; 
retrans_ptr  re__trans  .  buf  [  1  ] ; 
retrans_ptr . data  : =  mes_CC; 
retrans_ptr .count  :=  1; 
retrans_ptr . timer  :=  RETRANS_TIME ; 
set_retrans_timer ; 
end; 


trans 

when  TP4 I_I . TP4 I_MESind 

provided  (TP_code( message)  =  DRCODE) 
from  WFCCout  to  CLOSED 

begin 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

trans_DRg; 

output  TP4M_0 . TP4M_MESreq ( mes_DR ) ; 

flag_kill_me  :=  now; 

end; 


trans 

when  TP4I_I  .TP4I__MESind 

provided  (TP_code( message)  =  DRCODE) 
from  AKWAITiso  to  CLOSING 

var 

retrans_ptr:  retrans_type ; 

begin 

s top_retrans_t imer ; 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

trans_DRy ; 

output  TP4M_O.TP4M_MESreq(mes_DR) ; 
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retrans_ptr  :  =  re_trans . buf ( 1 ] ; 

retrans_ptr .data  :=  mes_DR; 

retrans_ptr . count  :  =  retrans_ptr .count+1; 

retrans_ptr. timer  :  =  RETRANS_TIME; 

set_retrans_timer ; 

end; 


trans 

when  TP4 I_I . TP4 I_MESind 

provided  (TP_code( message)  =  DTCODE) 
from  AKWAIT  to  OPEN 

begin 

stop_inact_ack_timer ; 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

trans_DTg; 

output  TP4M_0 . TP4M_MESreq(mes_DT) ;  (*  send  DT  to  TP4  Net  *) 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 

retrans_ptr .data  :  =  mes_DT; 

retrans_ptr .count  :=  retrans_ptr . count+1 ; 

retrans_ptr . timer  :=  RETRANS_TIME ; 

set_retrans_t imer ; 

set_window_timer; 

set_inact_t imer; 

set_inact_ack_t imer; 

end; 


trans 

when  TP4 I_I . TP4 I_MESind 

provided  (TP_code( message)  =  EDCODE) 
from  AKWAIT  to  OPEN 

begin 

stop_inact_ack_timer ; 

exp_flag  :=  true;  (*  to  block  future  DTs  *) 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

trans_EDg; 

output  TP4M_0 .  TP4M__MESreq(  mes_ED) ;  (*  send  ED  to  TP 4  Net  *) 

ret rans_pt r  : *  re_trans . bu  f ( 1 ] ; 

retransjptr .data  : =  mes_ED; 

retrans_ptr .count  :=  retrans_ptr .count+1; 

retrans_ptr. timer  :=  R£TRANS_TIME; 

set_retrans_timer ; 

set_window_t imer ; 

set_inact_t imer ; 

set_inact_ack_timer; 

end; 


219 


trans 

when  TP4I_I .TP4I_MESind 

provided  (TP_code( message)  =  DRCODE) 
from  OPEN  to  CLOSING 

var 

retrans_ptr:  retrans_type ; 


begin 

s  t op_wi ndow_t ime  r ; 
st°p_inact_timer ; 
stop_retrans_timer; 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

trans_DRg; 

output  TP4M_O.TP4M_MESreq(mes_DR) ; 

retrans_ptr  :=  re_trans . buf ( 1 ] ; 

retrans_ptr . data  :=  mes_DR; 

retrans_ptr . count  :=  retrans_ptr . count+1 ; 

retrans_ptr . timer  :=  RETRANS_TIME ; 

set_retrans_t imer ; 

end; 


trans 

when  TP4 I_I . TP4 I_MESind 

provided  (TP_code( message)  =  DTCODE) 
from  OPEN  to  SAME 

begin 

stop_window_timer ; 
s top_inact_t imer ; 
if  (exp_f lag=f lase)  then 
begin 

accept_TP__mes  (message);  (*  take  in  the  TP_mes  *) 

trans_DTg; 

output  TP4M_O.TP4M_MESreq(mes_DT) ; 

retrans_ptr  : =  re_trans . buf ( re_trans . las t ] ; 

retrans_ptr .data  : =  mes_DT; 

retransjptr . count  :=  retrans_ptr. count+1; 

retrans_ptr . timer  :*  RETRANS_TIME; 

re_trans . last  :=  re_trans . last  +  1; 

set_retrans_timer; 

end; 

else  (*  blocked  due  to  ED  *) 

begin 

exp_que.last  :=  exp_que.last  +  1; 
exp_que . buf (exp_que . last ]  :=  message; 
end; 

set_window_timer ; 
set_inact_timer ; 
end; 
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trans 

when  TP4 I_I . TP4 I_MESind 

provided  ( TP_code ( message )  =  EDCODE ) 
from  OPEN  to  SAME 

begin 

stop_window_timer; 
stop_inact_timer ; 

exp_f lag  :=  true;  (*  to  block  future  DTs  *) 

accept_TP_mes  (message);  (*  take  in  the  TP  mes  *) 

trans_EDg;  ~ 

output  TP4M_O.TP4M_MESreq(mes__ED)  ; 

retrans_ptr  :=  re_trans .buf [re_trans . last ] ; 

retrans_ptr .data  :=  mes_ED; 

retrans_ptr .count  :=  retrans_ptr . count +1 ; 

retrans_ptr. timer  :=  RETRANS_TIME ; 

re_trans . last  :=  re_trans . last  +  1; 

set_retrans_timer ; 

set_window_ timer ; 

set_inact_t imer ; 

end; 
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APPENDIX  A. 3. 2  DON  TCP  SUBMODULE 


(***  ***) 

(***  DDN  TCP  Submodule  Specif ication  ***) 

(***  ***) 


body  DDN_TCP_entity_body  for  DDN_TCP_entity__type ; 
type 

TCP_HDR_type  =  record 


src_port 

short_word; 

(* 

source 

port  *) 

dst_port 

short_word ; 

(* 

destin 

port  * ) 

seq_num 

word_type ; 

(* 

sequence  num  * 

ack_num 

word_type ; 

(* 

ack  num  *) 

of f set 

octet; 

(* 

header 

length 

flags 

octet ; 

(* 

TCP  code  * ) 

window 

short_word; 

(* 

window 

size  *) 

checksum 

short_word ; 

urg_ptr 

short_word; 

(* 

urgent 

pointer 

options 

data__type  ; 

data 

datatype; 

(* 

user  data  * ) 

end; 

retrans_type  =  record 

timer  :  integer;  (*  time  left  before  retrans  *) 

count  :  integer;  (*  count  of  retrans  *) 

data  :  data_type;  (*  PDU  *) 

end; 


reorder_type  =  record 

seq  :  integer;  (*  sequence  number  for  re-order  *) 

data  :  data_type;  (*  PDU  *) 

end; 
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(  ***  *** ) 

(***  TCP  Interface  Interaction  Point  ***) 

(  ***  *** ) 


(*  TP-4  State  Machine  Interaction  Point  *) 
channel  TCP_machine_primitives  (user,  provider); 
by  privider: 

TCPM_MESind  (message  :  IP_TP_message_type ) ; 

(*  send  TPDUs  to  TCP_machine  *) 

by  user: 

TCPM_MESreq  (message  :  IP_TP_message_type) ; 

(*  TCP_machine  sends  TPDUs  out  *) 


(*  TP  Transport  Gateway  Interaction  Point  (to  linker  module)  *) 
channel  TCP_interf ace_primitives  (user,  provider); 
by  provider: 

TCPI_MESind  (message  :  IP_TP_message_type ) ; 
by  user: 

TCPI_MESreq  (message  :  IP_TP_message_type ) ; 

(***  ***) 

(***  TCP  State  Machine  SubModule  Specification  ***) 

I***  ***) 


module  TCP_machine_type  process 

(TCPM_I:  TCP_machine_primitives  (user); 
TCPM_0:  TCP_machine_primitives  (provider); 
TCPI_I:  TCP_interf ace_primitives  (user); 
TCPI_0 :  TCP_interface_primitives  (provider) ; 


) ; 

export 

state 

l_module 

g_module 

d_ip_addr 

s_ip_addr 

l_ref 

r_ref 

g_ref 

end; 


TCP  state_type; 

octet; 

(* 

octet; 

(* 

word_type; 

(* 

word_type; 

(* 

short_word; 

(* 

short_word; 

(* 

short_word; 

(* 

(*  connection  state  *) 
local  module  id  *) 

GW  module  id  *) 
destination  IP  address  *) 
source  IP  address  *)  v 
local  reference  *) 
remote  reference  *) 
gateway  cross  reference  *) 


body  TCP_machine_body  for  TCP_machine_type;  external; 
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(  *** 

(***  variables  of  the  DDN_TCP_body 
( *** 


***  j 

*  *  *  j 
***  j 


var 


total_conn  :  integer;  {*  total  active  transport  conn  *) 
conn_f lag  :  array  [ 1 . . MAX_CONN ]  of  boolean; 

~  (*  slot  available  flag  *) 

TCPM  :  array  [ 0 . . MAX_CONN ]  of  TCP_machine_type ; 

(*  instance  of  TCP_machine  *) 

cur_conn :  integer;  (*  cur  connection  reference  *) 

direction  :  direction_type ;  (*  cur  mes  flow  direction  *) 

cur_mod_id  :  octet;  (*  module  Id  *) 

cur_mes_id  :  octet;  (*  message  Id  *) 

cur_mes  :  IP_TP_message_type;  (*  cur  IP_TP  message  *) 

cur_tpdu  :  TPDU_message_type ;  (*  TPDU,  used  as  pointer  *) 

cur_tcp  :  TCP_HDR_type;  (*  TCP  hdr,  used  as  pointer  *) 

cur_s_IP  :  word_type ;  (*  source  IP  address  *) 

cur_d_IP  :  word_type;  (*  destin  IP  address  *) 

cur_tp_code  :  TPDU_code_type ;  (*  current  TPDU  code  *) 

src_port/dst_port :  short_word; 

total_mes  :  integer;  (*  total  messages  going  through  *) 

err_mes  ;  integer;  (*  messages  with  error  conditions  *) 

fatal_err  :  integer;  (*  fatal  errors  *) 
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( ***  ***) 

{***  Common  Procedures  of  DDN_TCP_body  ***) 

(  *  *  *  *  *  *  ) 


function  conn_alloc  :  integer; 

(*  allocate  a  free  slot  of  connection  *) 

var 

i,j  :  integer; 

begin 
j  •  -  0  ; 

if  ( total_conn  <  MAX_CONN)  then 
for  i  :=  MAX__CONN  to  1  do 

if  (conn_f lag[ i ]  =  false)  then 
j  :=  i; 

if  (j  >  0)  then 
begin 

total_conn  :=  total_conn+l ; 
conn_flag[j]  :=  true; 
end; 

conn_alloc  :=  j; 
end; 

(*  In  the  case  of  ( total_conn=MAX_CONN ) ,  ( conn_alloc=0 )  will  be 

returned.  There  exists  a  TCPM[0]  to  be  used  in  this  case  to 
respond  to  abnormal  TPDUs .  *) 


procedure  conn_free  (j  :  integer);  (*  free  the  connection  slot  *) 
begin 

if  ((j>0)  an<i  ( j<=MAX_C0NN)  )  then 
if  (conn_f lag[ j ]  =  true)  then 
begin 

conn_flag[j]  :=  flase; 
total_conn  :=  total_conn-l ; 
end; 

end; 


function  TP_code  (TPDU:  TPDU_type):  TPDU_code_type; 

(*  check  the  TPDU_code  of  the  TPDU  *) 
begin 

TP_code  :=  TPDU[2];  (*  4  bits  at  left  *) 

end; 
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function  cur_TP_code  (mes:  IP_TP_message)  :  TPDU_code_type; 


(*  check  the  TPDU_code  of  the  1st  IP_TP  message  in  queue  *) 


begin 

cur_mes  :=  mes; 
cur_tpdu  :=  cur_mes . data ; 
cur_conn  :=  cur_tpdu . dst_ref ; 
cur_tp_code  :=  TP_code ( cur_tpdu ) ; 
cur_TP_code  :-  cur_tp_code; 
end; 


(*  access  NQ  message  *) 

(*  point  to  TPDU  *) 

(*  TCP  reference  index  *) 
(*  get  the  TPDU  code  *) 


function  TCP_code  (byte:  octet):  TPDU_code_type; 


(*  check  the  TPDU_code  of  the  TCP  hdr  *) 


begin 

case  byte  of 

0:  TCP_code  :  =  DTCODE ; 
1:  TCP_code  :=  ORCODE ; 
2:  TCP_code  :=  CRCODE; 
4 :  TCP_code  : =  RJCODE ; 
8:  TCP_code  :=  DTCODE; 


16: 

TCP 

code 

:  - 

AKCODE 

18: 

TCP' 

code 

:  = 

CCCODE 

32: 

TCP' 

code 

: 3 

DTCODE 

40: 

TCP 

code 

:  = 

DTCODE 

56: 

TCP] 

code 

:  = 

AKCODE 

end 

• 

f 

end; 


(*  *) 

(*  FIN  *) 

(*  SYN  *) 

(*  RST  *) 

(*  PSH  and  data  *) 

(*  ACK  *) 

(*  SYN, ACK  *) 

(*  UGR  and  data  *) 

(*  URG, PSH,  and  data  *) 
(*  URG, PSH, ACK  *) 


function  cur_TCP_code  (mes:  IP_TP_message)  :  TPDU_code_type ; 

(*  check  the  TCP  code  of  the  1st  IP_TP  message  in  queue  *) 
begin 

cur_mes  : =  mes ; 

cur_tcp  :=  mes. data;  (*  point  to  TCP  hdr  *) 

cur_tp_code  :=  TCP_code(cur_tcp . flags ) ;  (*  get  the  TPDU  code  *) 
if  ( ( cur_tp_code=AKCODE)  and  d_length(cur_tcp . data ) >0 ) )  then 
cur_tp_code  =  DTCODE; 
cur_TCP_code  :=  cur_tp_code; 
end; 
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function  tcp_acceptable  (mes:  IP_TP__message_type)  :  boolean; 

(*  check  the  TCP  header  to  see  if  it  is  acceptable  *) 

var 

ok:  boolean; 
i,j,k,l:  integer; 

begin 

ok  :=  chk_checksum( mes .data,  mes . data . of f set*4 ) ; 
if  (ok)  then 
begin 

cur_TCP_code(mes ) ;  (*  get  cur_tp_code,  etc.  *) 

cur_conn  : =  0 ; 
i  :  =  0 ; 

while  ( ( i<total_conn)  and  ( cur_conn=0 ) )  do 
begin 

if ( ( con_f lag[ i ] =true )  and 

( TCPMf i ] . d_ip_addr=mes . d_IP_addr )  and 
(TCPM(i] . s_ip_addr=mes . s_IP_addr )  and 
( TCPM[ i ] . l_port=mes . data . dst_port )  and 
( TCPM[ i j . r_port=mes .data . src_port ) )  then 
cur_conn  :=  i; 

else 

i  :  =  i  +  1 ; 

end; 

if (cur_conn>0 )  then 
begin 

if  (TCPM[cur_conn] .g_module=0 )  then 

TCPM(cur_conn] .g_module  =  cur_mes .module/ 16 ; 

else 

if (TCPM[cur_conn] . g_module<>cur_mes .module/ 16 )  then 
ok  :=  flase; 

i  f  ( TCPM  [  cur__conn  ]  .  r_re  f  =  0 )  then 

TCPM[cur_conn] . r_ref  : =  cur_tpdu . src_ref ; 
else 

if  ( cur_tpdu . src_ref <>TCPM[cur_conn ] . r_ref )  then 
ok  :=  false;  (*  check  the  SRC_REF  *) 

end; 

end; 

tcp_acceptable  :=  ok; 
end; 
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function  dup_CR  (mes:  IP_TP_message_type)  :  boolean; 

(*  check  the  CR  TPDU  to  see  if  it  is  duplicate  *) 
var 

dup:  boolean; 

begin 

cur_conn  :=  0; 
dup  :=  false; 
i  :=  1; 

while  ( ( i<=MAX_CONN)  and  (dup=false))  do 
begin 

if  ( (conn_f lag[ i ] =true)  and 

( curves  .  s_IP_addr=TCPM[  i  ]  .  s_ip_addr )  and 
( cur  jmes  .  d_IP__addr=TCPM[  i  ]  .  d_ip_addr )  and 
( TCPM( i ] . l_port=cur_mes . data . dst_port )  and 
( TCPM[ i ] . r_port =cur_mes . data . src_port ) )  then 
begin 

cur_conn  :=  i; 
dup  :=  true; 
end; 

i  :=  i+1; 
end; 

dup_CR  : =  dup; 
end; 


function  dup_CRg  (mes:  TPDU_message_type )  :  boolean; 

(*  check  the  CR  TPDU  from  TP_GW  to  see  if  it  is  duplicate  *) 
var 

dup:  boolean; 
i:  integer; 

begin 

cur_conn  :=  0; 
dup  :=  false; 
i  :=  1; 

while ((  i<=MAX__C0NN)  and  ( dup=f alse) )  do 
begin 

if  ( (conn_f lag[ i]=true)  and 

(mes .d_IP_addr=TCPM[ i] .s_ip_addr)  and 
(mes . s~IP_addr=TCPM( i ] .d_ip_addr)  and 
( TCPMf i ] . l_port=mes . data . dst_port )  and 
( TCPM[ i ] . r_port=mes . data . src_port )  and 
(mes  .  src__ref  =TCPM[  i  ]  .  g_ref ) )  then 
begin 

cur_conn  : =  i; 
dup  :=  true; 
end; 

i  :*  i+1; 
end; 

dup_CRg  :=  dup; 
end; 
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(***  ***) 

(***  Initialization  of  DDN_TCP_body  ***) 

(***  ***) 

initialize 


total_mes  :=  0; 
err_mes  :=  0; 
fatal  err  :=  0; 


(*  total  messages  *) 
{*  error  messages  *) 
(*  fatal  errors  *) 


total_conn  :=  0;  (*  total  transport  connections  *) 

for  i  :=  1  to  MAX_C0NN  do 

conn_flag  :=  false;  {*  the  connection  slot  is  free  *) 


init  TCPM[0]  with  TCP_machine_interface_body( ) ; 

(*  virtual  State_machine  for 
responding  to  error  CR's  * 


TCPM[ 0 ] • l_ref  :=  0; 
connect  TCPM_I  to  TCPM[ 0 ] .TCPM_I ; 
connect  TCPI_I  to  TCPM[ 0 ] . TCPI_I ; 
attach  TCPM_0  to  TCPM[0] .TCPM_0; 
attach  TCPI_0  to  TCPM[ 0 ] .TCPI_0; 


) 


end ; 
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^  *  *  It 

^  *  *  * 
(  *** 


State  Transitions 


*  *  *  ^ 
*** ) 
*** ) 


trans 

when  NSi . IP_TP_MESind  priority  0  (*  receive  from  DDN-IP  *) 

begin 

total_mes  :=  total_mes+l ; 
direction  :=  in; 

if  ( tcp_acceptable(message)=false)  then 

err_mes  :  =  err_mes+l;  (*  TPDU  not  acceptable  *) 

else  if  ( cur_tp_code=CRCODE )  then  (*  and  cur_conn=0  *) 
begin  (*  Connection  Request  *) 

if  ( dup_CR( message ) =f alse )  then 
begin 

cur_conn  :=  conn_alloc ( ) ; 
if  (cur_conn>0)  then 

begin  (*  initialize  TCP  protocol 

machine  * ) 

init  TCPM[cur__conn  ]  with 

TCP_machine_interf ace_body ( ) ; 
with  TCPM[cur_conn]  do 
begin 

l_ref  :=  cur_conn; 

flag_kill_me  :=  conn_in_progress ; 

end; 

connect  TCPM_I  to  TCPM[cur_conn ] .TCPM_I ; 
connect  TCPI_I  to  TCPM[ cur_conn ] ,TCPI_I ; 
attach  TCPM_0  to  TCPM[cur_conn] .TCPM_0; 
attach  TCPI_0  to  TCPM[cur_conn] .TCPI_0; 
end;  (*  if  conn  *) 
end;  (*  if  dup_CR  *) 
output  TCPM[cur_conn] . TCPM_I (message) ; 

(*  pass  TPDU  for  further  check  or  response  *) 
end;  (*  if  CR  *) 
else 

output  TCPM[cur_conn] .TCPM_I (message ) ; 
end;  (*  trans  *) 

(*  For  duplicated  CR,  the  state  machine  TCPM[cur_conn]  will 
response  to  it  with  CC. 

In  case  there  is  no  local  connection  slot  available, 
cur_conn  is  reset  to  0  by  dup_CR( ) ,  or  by  conn_alloc ( ) ,  the 
CR  will  be  passed  to  TCPM[0J  which  will  in  turn  send  a  DR  to 
refuse  the  connection  request.  *) 
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trans 

when  TGS . TP_MESreq  priority  0  (*  receive  from  TCP,  begore 

feeding  into  TCP_machine  *) 

begin 

total_mes  :=  total_mes+l; 
direction  :=  out; 
cur_mes  :  =  message; 

cur_tpdu  :=  cur_mes .data;  (*  point  to  TPDU  *) 

cur_conn  :=  cur_tpdu . src_ref ;  (*  TCP  reference  index  *) 

cur_tp__code  :  =  TP_code(cur_tpdu) ;  (*  get  the  TPDU  code  *) 

case  cur_tp_code  of 

CCCODE , DRCODE , DCCODE , DTCODE , 

AKCODE , ERCODE , RJCODE  : 

output  TCPM[cur_conn] .TCPI_I (message) ; 

CRCODE  : 
begin 

if  ( dup_CRg( message ) =false)  then 
begin 

cur__conn  :=  conn_alloc (  )  ; 
if  (cur_conn>0)  then 

begin  (*  initialize  a  new  TCP_machine  *) 
init  TCPM[cur_conn]  with 

TCP_machine_interface_body ( ) ; 
with  TCPM(cur_conn ]  do 
begin 

l_ref  :=  cur_conn; 
f lag_kill__me  :=  conn_in_progress ; 
end ; 

connect  TCPM_I  to  TCPM[cur_conn] .TCPM_I ; 
connect  TCPI_I  to  TCPM[cur_conn] .TCPI_I ; 
attach  TCPM_0  to  TCPM[cur_conn] .TCPM_0; 
attach  TCPI_0  to  TCPM[cur_conn] .TCPI_0; 
end;  (*  if  conn  *) 
end;  (*  if  *) 

output  TCPM(cur_conn] . TCP I_I (message) ; 

(*  pass  TPDU  for  further  checking  *) 
end;  (*  case  CR  *) 
end;  (*  case  *) 
end;  (*  trans  *) 
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trans 

any  TCPM[i]:  TCP_machine_interf ace_type  do 

provided  (TCPM[ i ] . f lag_kill_me  =  now)  priority  i 

begin 

disconnect  TCPM[ i ] . TCPM_I ;  (*  disconnect  port  relations  *) 

disconnect  TCPM[ i ] . TCPI_I ; 
disattach  TCPM[ i ] .TCPM_0; 
disattach  TCPM[ i ] .TCPI_0; 

release  TCPM[i];  (*  terminate  TCP_machine  *) 

conn_f ree ( i ) ;  (*  free  the  slot  for  future  use  *) 

end; 

end;  (*  of  DDN_TCP_body  *) 
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(  *** 
^  *  *  * 
(  *** 


*** ) 

TCP_machine_interf ace_body  Specification  ***) 

*** ) 


body  TCP_machine__interf  ace_body  for  TCP_machine_interface_type; 


type 

TCP_state_type  =  ( CLOSED,  ESTAB,  SYN_SENTddn , 

SYN_SENTout ,  SYN_RCVDddn ,  SYN_RCVDout, 
FIN_WAITddn ,  FIN_WAITout,  TIME_WAIT) ; 

OPTION_END  =  0; 

OPTION_NO  =  1; 

OPTION_SIZE  =  2; 


var 

proto_err  :  integer;  (*  fatal  errors  *) 

l_port  :  short_word;  (*  local  port  id  *) 

r_port  :  short_word;  (*  remote  port  id  *) 

initiator  :  initiator_type;  (*  who  initiate  the  conn  *) 
size  :  octet;  (*  max  TPDU  size  *) 

g_size  :  octet;  (*  GW  max  TPDU  size  * ) 

snd_nxt  :  word__type;  (*  sending  sequence  no  *) 

snd_wnd  :  short_word;  (*  sending  credit  *) 
sndack  :  word_type;  (*  ack_ed  sequence  no  *) 
rcv_nxt  :  word_type;  (*  receiving  sequence  no  *) 

rcv_wnd  ;  short_word;  (*  receiving  credit  *) 

rcv_ack  :  word_type;  (*  ack_ed  sequence  no  *) 

re_trans  :  queue_type  of  retrans_type;  (*  retransmission  *) 
re_order  :  queue_type  of  reorder_type;  (*  re-order  *) 

cur_mes  ;  IP_TP_message_type;  (*  cur  IP_TP  message  *) 
cur_tpdu  :  TPDU_type;  (*  TPDU,  used  as  pointer  *) 

cur_tcp:  TCP_HDR_type ;  (*  TCP  hdr  *) 

cur_tp_code  :  TPDU_code_type ;  (*  current  TPDU  code  *) 
var_ptr:  ^TP_var_part_type;  (*  ptr  to  variable  part  *) 
sub_state  :  boolean;  (*  associated  flag  *) 

seq,ack  :  word_type; 
wnd  :  short_word; 


tp_mes  :  TPDU_message_type; 
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^  *  *  * 
^  *  *  * 
^  *  *  * 


Common  Procedures 


*** 


*  *  *  ^ 
*  *  *  j 


procedure  set_timer  (FSM:  TCP_machine_type ; 

time:  integer; 

kind:  timer_type);  primitive; 


(*  set  timer  *) 


procedure  set_retrans_timer ; 

(*  set  re-trans  timer  *) 
begin 

set_timer  (  TCPM[  l__ref  ]  ,  RETRANS_TIME  ,  retrans  )  ; 
end; 


procedure  set_ref_timer ; 

(*  set  ref  timer  *) 
begin 

set_timer  (TCPM[ l_re£ ] ,  REFJTIME,  ref); 
end; 


procedure  set__window_timer ; 

(*  set  window  timer  *) 
begin 

set_timer  ( TCPM[ l_ref ] ,  WINDOW_TIME,  window); 
end ; 


procedure  set_inact__t imer ; 

(*  set  inact  timer  *} 
begin 

set_ timer  ( TCPM[ l_ref ] ,  INACT_TIME,  inact); 
end; 
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procedure  stop_timer  ( FSM:  TCP_machine_type; 

kind:  timer_type ) ;  primitive; 


(*  stop  timer  *) 


procedure  stop_retrans_timer ; 

(*  stop  retrans  timer  *) 
begin 

stop_timer  (TCPM( l_ref ] ,  retrans); 
end ; 


procedure  stop_window_timer; 

(*  stop  window  timer  *) 
begin 

stop_timer  ( TCPM[ l_ref ] ,  window); 
end; 


procedure  stop_inact_timer ; 

(*  stop  inact  timer  *) 
begin 

stop_timer  ( TCPM[ l_ref ] ,  inact); 
end  ; 


function  timer  (kind:  timer_type):  logical;  primitive; 

(*  dst  at  the  timer  interrupt  *) 


function  set_window:  integer;  primitive; 

(*  set  window  size  for  local  TCPM  receiving.  It  is  used  to 
get  the  window  width  for  the  flow  control.  The 
function  can  be  implemented  by  estimating  the  available 
storage  space  in  memory,  dividing  them  between  the 
modules  in  the  system,  and  between  the  active  sessions 
in  the  module.  *) 
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function  trans_d_port ( addr :  short_word)  :  short_word;  primitive; 

{*  translate  DDN_TCP  port  address  to  GW_TP  address  *) 

function  trans__g_port  ( addr :  short_word)  :  short_word;  primitive; 

(*  translate  GW_TP  address  to  DDN_TCP  port  address  *) 


function  cur_TCP_code  (roes:  IP_TP_message_type )  :  TPDU_code_ty pe; 

(*  check  the  TPDU_code  of  message  from  IP  *) 
begin 

cur_mes  : =  mes ; 
cur_tcp  :=  cur_mes . data ; 

cur_tp_code  : =  TCP_code( cur_tcp . flags ) ;  (*  4  bits  at  left  *) 

cur_TCP_code  :=  cur_tp_code; 

end; 


function  TP_code  (mes:  TPDU_message_type )  :  TPDU_code_type ; 

(*  check  the  TPDU_code  of  message  from  TP-GW  *) 
begin 

tp_mes  : =  mes ; 

cur_tp_code  :=  tp_mes .  tpdu__code ;  (*  4  bits  at  right  *) 

TP_c°de  :=  cur_tp_code ; 

end; 


procedure  tcp_checksum  (var  mes:  IP_TP_message_type ) ; 

(*  complete  the  TPDU  with  checksum,  etc.  *) 
begin 

nw»5.data  :=  set_checksum(cur_tcp,  cur_tcp .  of  f  set*4  ,  17); 
end; 
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procedure  accept_TPDU  (mes:  IP_TP_message_type ) ; 

(*  accept  the  control  info  in  the  TPDU  from  DDN-TCP  *) 
var 

sn:  word_type; 


begin 

cur_mes  :=  mes; 
cur_tpdu  :=  cur_mes . data ; 

cur_tp_code  :=  cur_tpdu[2]  /  16;  (*  4  bits  at  left  *) 

sub_state  :=  true;  (*  true  for  OK  *) 

if  ( s_ip_addr=0 )  then 

s_ip_addr  :=  cur_mes . s_IP_addr ;  (*  fill  in  source  IP 

else  if  ( s_ip_addr<>cur_mes . s_IP_addr )  then 
sub_state  :=  false; 

if  (d_ip_addr=0 )  then 

d_ip__addr  :=  cur_mes .d_IP_addr ;  (*  fill  in  destin  IP 

else  if  (d_ip_addr<>cur_mes .d_IP_addr )  then 
sub_state  :=  false; 

if  (l_port=0)  then 

l_port  :=  cur_tpdu . dst_port ; 
else  if  ( Import <>cur_tpdu . dst_port )  then 
sub_state  :=  false; 

if  (r_port=0)  then 

r_port  : =  cur_tpdu . src_port ; 
else  if  (r_port<>cur_tpdu.src_port)  then 
sub_state  :=  false; 

seq  :=  cur_tpdu . seq; 
ack  :=  cur_tpdu . ack; 
wnd  :=  cur_tpdu . wnd; 

sn  :=  0; 
i  :  =  1; 

var_ptr  :=  cur_tpdu . options ; 

1  :=  cur_tpdu.of fset*4-20;  (*  length  of  options  *) 

while  ( 1 > 0 )  do 
begin 

case  var_ptr[l]  of 

0PTI0N_END  :  (*  0000  0000:  No  more  *) 

1  :=  0; 

0PTI0N_SIZE:  (*  0000  0002:  Max  PDU  size  *) 

begin 

sn  :=  get_word  (var_ptrf  3); 

1  :=  1-3; 
i  :=  i+3; 
end; 

end; 

default  : 


{*  CHKSUMCODE, REASSIGN, etc  *) 


null ; 

end;  (*  case  *) 

var_ptr  :=  ~var_ptr[2]; 
1  :=  1-1; 
end;  (*  while  *) 

end; 


procedure  accept_TP_mes ( mes :  TPDU_message_type ) ; 

(*  accept  the  control  info  in  the  TPDU  from  TCP  *) 

var 

n:  word_type; 

sn:  short_word; 

i , j , k, 1 :  integer ; 

var_p t r :  ~ TP_var_par t_type ; 

begin 

tp_mes  :=  mes; 


cur_tp_code  :=  tp__mes  .  tpdu_code ; 
if  (g_ref=0)  then 

(  *  4 

bits 

at 

right  *) 

g_re  f  : =  tp_mes . s  r c_re f ; 

(* 

fill 

in 

remote  ref 

sub  state  :=  true; 

if  (cur_tp_code=CRCODE)  then 

(* 

true 

for 

OK  *) 

begin 

g_module  :=  tp_mes .module  mod  16; 
d_ip_addr  :=  tp_mes .d_IP_addr; 
s_ip_addr  :=  tp_mes . s_IP_addr ; 
end; 

var_ptr  :=  ~ tp_mes . var_part ; 

1  :=  v_length;  (*  length  of  var.  part 

while  (1>0)  do 
begin 

k  :=  var_ptr . length ; 
case  var_ptr . param_code  of 

CALINGCODE  :  {*  1100  0001:  src  port-ID  *) 

if  ( cur_tp_code=CRCODE )  then 

l_port  :=  get_sword  (var_ptr . value,  k); 
else  if  (cur^tp^odeoCCCODE)  then 
sub_state"*:  =  false; 
else  if  (l_port=0)  then 

l_port : =get_sword ( var_ptr . value , k ) ; 
else  if  ( l_port<>get_sword( var_ptr . value,k) ) ) 
sub_state  :=  false; 

CALLEDCODE  :  (*  1100  0010:  dst  port-ID  *) 

if  ( cur_tp_code=CRCODE)  then 

r_port  :=  get_sword  (var_ptr. value,  k) ; 


*) 


then 
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else  if  ( cur_tp_code<>CCCODE )  then 
sub_state  :=  false; 
else  if  (r_port=0)  then 

r_port : =get_sword( var_ptr . value , k ) ; 
else  if  ( r_port<>get_sword( var_ptr .value, k) ) )  then 
sub_state  :=  false; 

PDUSIZCODE  :  (*  1100  0000:  TPDU  size  *) 

if  (cur_tp_code=CRCODE)  then 

g_size  :=  get_sword  ( var_ptr . value ,  k); 
else  if  (cur_tp_code<>CCCODE )  then 
sub_state  :=  false; 
else 

begin 

sn  :=  get_sword( var_ptr . value , k ) ; 
if  ((g_size=0)  or  (g_size>sn))  then 
g_size  :=  sn; 

end; 


procedure  build_TCP; 

(*  filling  in  the  parts  of  TCP  header,  and  GW  message  header  *) 
begin 

cur_tcp . src_port  :=  l_port; 
cur_tcp.dst_port  :=  r_port; 
cur_tcp . seq_numt  :=  snd_nxt; 
cur_tcp . ack_numt  :=  rcv_nxt; 
cur_tcp . window  :=  rcv_wnd; 
tcp_checksuni(  cur_tcp ) ; 

cur_mes .module  :=  l_module; 
cur_mes . s_IP_addr  :=  d_ip_addr; 
cur_mes .d_IP_addr  :=  s_ip_addr; 
cur_mes.data  :=  cur_tcp; 
end; 


procedure  build_ER; 

(*  build  ER  for  DDN-TCP ,  in  cases  of  any  protocol  error  *) 
begin 

cur_tcp. flags  : =  RST; 
cur_tcp.of fset  :=  5; 
build_TCP ; 
end; 


procedure  build_DC; 

(*  build  DC  for  DDN-TCP  in  response  to: 
FIN-WAIT  *  FIN  *) 

begin 

cur_tcp. flags  :=  FIN+ACK; 
cur_tcp. offset  :=  5; 
build_TCP ; 
end; 
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procedure  build_CC; 

(*  build  CC  for  DDN-TCP  *) 
begin 

cur_tcp.  flags  :=*  SYN+ACK; 
cur_tcp . of f set  :=  5; 
build_TCP ; 
end; 


procedure  build_AK; 

(*  make  up  AK  for  DDN-TCP,  in  cases  of: 
ESTAB  *  DT, 

ESTAB  *  timers  *) 


begin 

update_window( ) ;  (*  update  window  control  info  *) 

cur_tcp . flags  :  =  cur_tcp . flags  +  ACK; 

cur_tcp.of fset  :=  5; 

build_TCP; 

end; 


function  opt_cal ling {port:  short_word) :  data_type; 
(*  make  up  calling  TASP  option  *) 
var 

ptr:  data_type; 


begin 

ptr  :=  d_create(4); 
ptr [ 1 ]  :=  CALINGCODE; 

ptr [ 2 ]  :*  2; 

d_puts ( ptr , 3 , d_encode2 ( port ) ) ; 

opt_calling  :=  ptr; 

end; 
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function  opt_calied( port :  short_word):  data_type; 
(*  make  up  called  TASP  option  *) 
var 

ptr:  data_type; 


begin 

ptr  :=  d  create(4); 
ptr [ 1 ]  :=  CALLEDCODE; 

ptr [2]  :=  2; 

d_puts ( ptr , 3 , d_encode2 ( port ) ) ; 

opt_called  :  =  ptr; 

end; 


procedure  trans_TCP; 

(*  common  operation  to  translate  TCP  TPDUs  into  TP  GW  format  *) 
begin 

tp_mes .module  :=  cur_mes .module; 
tp_mes .message  :=  cur_mes .message; 
tp_mes . s_IP_addr  :=  cur_mes . s_IP_addr ; 
tp_mes  .  d_IP_addr  :=  cur_mes  .  d_IP__addr ; 

tp_mes . dst_ref  : =  g_ref; 
tp_mes . src_ref  : =  l_ref; 
tp_mes. class  :=  4; 

tp_mes . v_length  :=  d_length( tp_mes . varjpart ) ; 
tp_mes . d_length  :=  d_length(cur_tcp.data) ; 
tp_mes.data  :=  d_create( tp_mes .d_length) ; 
d_puts  ( tp_mes  .data,  1,  cur__tcp.data)  ; 
end; 


procedure  trans_CR; 

(*  translate  CR  of  DDN-TCP  to  GW  format,  in  case  of 
CLOSED  *  CR  *) 

begin 

tp_mes.code  :=  CRCODE; 

tp~mes . var_part  :=  opt_calling( trans_d_port ( l_port ) ) ; 

tpjnes . varjpart  ;=  d_append(opt_called(trans_d_port(r_port) ) ) ; 

trans_TCP; 

end; 
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procedure  trans_CC; 

(*  translate  CC  of  DDN-TCP  to  GW  format,  in  case  of 
SYN_SENTddn  *  CC  *) 

begin 

tp_mes.code  :  =  CCCODE; 

tp_mes . var_part  :=  opt_calling ( trans_d_port ( l_port ) ) ; 

tp_mes . var_part  :*  d_append(opt_called( trans_d_port(r_port) ) ) ; 

trans_TCP; 

end; 


procedure  trans_DR; 

(*  translate  DR  of  DDN-TCP  to  GW  format,  in  case  of 
ESTAB  *  FIN  *) 

begin 

tpjmes.code  :=  DRCODE ; 

tp_mes . var_part  :=  opt_calling( trans_d_port( l_port ) ) ; 

tp_mes . var_part  :=  d_append (optical led ( trans_d_port(r_port ))) ; 

trans_TCP; 

end; 


procedure  trans_DT; 

(*  translate  DT  of  DDN-TCP  to  GW  format,  in  case  of 
SYN_RCVDddn ,  ESTAB  *  DT  *) 

begin 

tp_mes.code  :=  DTCODE ; 

tp_mes . varjpart  :=  opt_calling( trans_d_port ( l_port ) ) ; 

tp_mes . var_part  : =  d_append ( optical led ( trans_d_port ( r_port ) ) ) ; 

trans_TCP; 

end; 


procedure  trans_CRg; 

(*  translate  CR  of  GW  format  to  DDN-TCP  format,  in  case  of 
CLOSED  *  CRg  *) 

begin 

update_window( ) ;  (*  update  window  control  info  * ) 

cur_tcp . flags  :=  SYN; 

cur  tcp. offset  :=  5; 

buiId_TCP; 

end; 
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procedure  trans_CCg; 

(*  translate  CC  of  GW  format  to  DDN-TCP  format,  in  case  of 
SYN_SENTout  *  CCg  *) 

begin 

update_window{ ) ;  (*  update  window  control  info  *) 

cur_tcp . flags  :=  SYN  +  ACK; 

cur_tcp . of fset  :=  5; 

build_TCP ; 

end; 


procedure  trans^DRg; 

(*  translate  DR  of  GW  format  to  DDN-TCP  format,  in  case  of 
SYN_SENTddn,  SYN_SENTout ,  SYN_RCVDddn,  ESTAB  *  DRg  *) 

begin 

cur_tcp . flags  :=  FIN 
cur_tcp .of f set  s=  5; 
build_TCP; 
end ; 


procedure  trans_DTg; 

(*  translate  DT  of  GW  format  to  DDN-TCP  format,  in  case  of 
ESTAB  *  DTg  *) 

begin 

cur_tcp . flags  :=  0; 
cur_tcp . of f set  :=  5; 
build_TCP ; 
end; 


procedure  check_queue;  primitive; 

(*  Check  all  the  TPDUs  in  the  re-trans  queue  for  re¬ 
transmission  if  necessary.  *) 
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(  *** 
( *** 
(  *** 


Initialization 


***  j 
***  j 
***  j 


initialize 

state  :=  CLOSED; 
proto^err  :=  0; 


^  *  *  * 

*** ) 
*** ) 

^  *  *  * 

Transitions  of 

TCP_machine 

(  *  *  * 

*  *  *  j 

(  *** 

GROUP-1:  TPDU  from  DDN-TCP 

*  *  *  ^ 

(  *** 

State_transition 

from  CLOSED 

***  j 

trans 

when  TCPM_I • TCPM_MESind  (*  CR  from  TCP  *) 

provided  ( (cur_TCP_code( message ) =CRCODE) )  and  (l_ref=0)) 
from  CLOSED  to  same 

begin  (*  no  conn  available  *) 

build_ER; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
end; 


trans 

when  TCPM_I . TCPM_MESind  (*  CR  from  TCP  *) 

provided  ( ( cur_TCP_code ( message )=CRC0DE) )  and  (l_ref<>0)) 
from  CLOSED 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

snd_nxt  :=  time_of_day{ ) ; 
snd_wnd  0; 
snd_ack  :=  0; 

rcv_nxt  :=  seq; 
rcv_wnd  : =  wnd ; 
rcv_ack  :=  0; 
trans_CR; 

output  TCPI_O.TCPI_MESreq< tp_mes ) ;  (*  send  translated 

message  to  linker  *) 

next_state  : =  SYN_SENTout; 
end; 
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trans 

when  TCPM_I . TCPM_MESind 

provided  (cur_TCP_code( message)  *  CCCODE) 
from  CLOSED  to  SAME 

begin 
build_ER ; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
end; 


trans 

when  TCPM_I .TCPM_MESind 

provided  ( (cur_TCP_code( message)  =  DTCODE)  or 
{ cur_TCP_code( message)  =  AKCODE)) 
from  CLOSED  to  SAME 

begin 

proto_err  :=  proto_err+l; 
build_ER; 

output  TCPM_O.TCPM_MESreq(cur_mes) ; 
end; 


(***  State_transition  from  SYN_SENTddn  ***) 
trans 

when  TCPM_I .TCPM_MESind 

provided  ( cur_TCP_code ( message)  *  CCCODE) 
from  3YN_3ENTddn 

var 

retrans_ptr  :=  ^retrans_type ; 


begin 

stop  retrans_timer ;  (*  CR  *) 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

rcv_nxt  :=  seq; 
rcv_wnd  : =  wnd ; 
rcv_ack  : =  0; 

re  trans. total  :*  re_trans . total- 1 ;  (*  remove  CR  from 

-  retrans_queue  *) 

s  e  t _wi ndow_ t ime  r ; 

set_inact_timer; 

trans_CC;~ 

output  TCP I  O.TCPl_MESreq( tp_mes) ;  (*  send  translated 

message  to  linker  *) 

next_state  :=  SYN_RCVDout; 
end; 
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trans 

when  TCPM_I .TCPM_MESind 

provided  (cur_TCP_code( message)  *  DRCODE )  _ 

from  SYN_SENTddn  to  TIME_WAIT 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  * )  ~ 

set_ref_timer ; 

trans_DR; 

output  TCPI_O.TCPI_MESreq( tp_mes) ;  (*  send  TDISind  to  linker  *)- 

end; 


trans 

when  TCPM_I .TCPM_MESind 

provided  (cur_TCP_code( message)  =  ERCODE ) 
from  SYN_SENTddn  to  TIME_WAIT 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

set_ref_timer ; 

build_DRg; 

output  TCPI_0 .TCPI_MESreq( tp_mes ) ;  (*  send  TDISind  to  linker  *) 

end; 


(***  State_transition  from  SYN_SENTout  ***) 


trans 

when  TCPM_I . TCPM_MESind 

provided  (cur_TCP_code ( message)  =  DRCODE) 
from  SYN_SENTout  to  CLOSED 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

build_DC; 

output  TCPM_O.TCPM_MESreq(cur_mes ) ; 
trans_DR; 

output  TCPI_O.TCPI_MESreq( tp_mes ) ;  (*  send  TDISind  to  linker  *) 
flag_kill_me  now;  (*  terminate  the  TPM  *) 

end; 
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(  *** 


State  transition  from  SYN  RCVD 


*  *  *  j 


trans 

when  TCPM_I .TCPM_MESind 

provided  (cur_TCP_code(message)  =  CRCODE) 
from  SYN_RCVD  to  SAME 

var 

retrans_ptr:  retrans_type ; 


begin 

stop_retrans_timer ; 
retrans_ptr  :=  re__trans  .  buf  [  1  ] ; 

output  TCPM_O.TCPM_MESreq(retrans_ptr .data) ;  (*  retrans  CC  *) 

retrans_ptr . count  :=  1; 

ret rans_ptr . timer  :=  k t; t haw 5 _  r i Mb' ; 

set_retrans_timer ; 

end ; 


trans 

when  TCPM_I .TCPM_MESind 

provided  (cur_TCP_code( message)  =  ERCODE ) 
from  SYN_RCVD  to  FIN_WAIT 

var 

retrans_ptr:  retrans_type; 


begin 

stop_retrans_t imer ; 

accept_TPDU  (message);  (*  take  in  the  TPDU  * ) 

retrans_ptr  :  =  re_trans . buf [ 1 ] ; 

build_DR; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 

retrans_ptr .data  :=  cur_mes;  (*  replace  CC  with  DR  *) 

retrans~ptr .count  :=  1; 

retrans_ptr . timer  :=  RETRANS_TIME ; 

set_retrans_timer ; 

build_DRg; 

output  TCPI_O.TCPI_MESreq(  tp__mes  )  ;  (*  send  TDISind  *) 

end; 
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trans 

when  TCPM_I .TCPM_MESind 

provided  (cur_TCP_code( message)  *  DRCODE ) 
from  SYN_RCVD  to  TIME_WAIT 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

build_DC ; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 

set_re  f _t imer ; 

trans_DR; 

output  TCPI_O.TCPI_MESreq( tp_mes ) ;  (*  send  TDISind  *) 

end; 


(***  State_transition  from  SYN_RCVDddn  ***) 


trans 

when  TCPM_I . TCPM_MESind 

provided  (cur_TCP_code( message)  =  DTCODE) 
from  SYN  RCVDddn  to  ESTAB 


begin 

stop_retrans_t imer ; 
re  trans. last  :=  0; 


(*  no  more  re-trans  CC  *) 
(*  clear  re-trans  queue  *) 


accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

trans_DT; 

output  TCPI_O.TCPI_MESreq( tp_mes ) ; 
set_inac t_t imer ; 

set_inact_ack_timer ;  (*  for  sending  AK  at  suitable 

interval  in  absence  of  DT 


end; 


*) 


( ***  State_transition  from  ESTAB  ***) 


trans 

when  TCPM_I .TCPM_MESind 

provided  ( cur_TCP_code( message )  =  CRCODE) 
from  ESTAB  to  SAME 

begin 

s top_i nact_t imer ; 
set_inact_t imer ; 
end; 
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trans 

when  TCPM_I .TCPM_MESind 

provided  ( cur_TCP_code ( message )  =  CCCODE) 
from  ESTAB  to  SAME 

begin  (*  duplicated  CC  *) 

stop_inact_t imer ; 
build_AK ; 

output  TCPM_O.TCPM_MESreq  (cur_mes);  (*  repeat  AK  *) 

set_inact_timer ; 
end ; 


trans 

when  TCPM__I .  TCPM_MESind 

provided  (cur_TCP_code( message)  =  ERCODE) 
from  ESTAB  to  SAME 

var 

retrans_ptr:  retrans_type ; 


begin 

stop_window_timer ; 
stop_inact_timer ; 
stop_retrans_timer ; 

accept__TPDU  (message);  (*  take  in  the  TPDU  *) 

build_CR; 

output  TCPM_O.TCPM_MESreq(cur_mes) ;  (*  Re-synchronize  *) 

end ; 


trans 

when  TCPM_I .TCPM_MESind 

provided  ( cur_TCP_code (message )  =  DRCODE) 
from  ESTAB  to  TIME_WAIT 

var 

retrans_ptr:  retrans_type ; 


begin 

stop_retrans_timer ; 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

build_DC; 

output  TCPM_O.TCPM_MESreq(cur_mes ) ; 

build_DR;  (*  TCP  has  order-release!  *) 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
set_ref_timer ; 
end; 
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trans 

when  TCPM_I .TCPM_MESind 

provided  (cur_TCP_code( message)  =  DTCODE) 
from  ESTAB  to  SAME 

begin 

stop_inact_timer ; 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

if  (seq  =  rcv_nxt)  then  (*  DT  in  sequence  *) 

begin 
trans_DT; 

output  TCPI_O.TCPI_MESreq( tp_mes ) ; 
set_data_ack_timer ;  (*  set  timer  to  ack 

during  A_1  *) 

rcv_nxt  :=  rcv_nxt  +  d_length(cur_tcp.data) ; 

while  ( ( re_order ; last>0 )  and  (*  check  re-seq  queue  *) 

( rcv_nxt=re_order . buf [ 1 ] . seq ) )  do 

b cry  in 

message  :=  re_order . buf [ 1 ]. data ; 
trans_DT; 

output  TCPI_0 . TCPI_MESreq ( tp_mes ) ; 

rcv_nxt  :=  rcv_nxt  +  d_length ( re_order . buf [ 1 ]. data ) 
for  i : =2  to  re_order . last  do 

re_order . buf [ i-1 ]  :  =  re_order . buf [ i ] ; 
re_order . last  :=  re_order . last  -1; 

end; 

else  if ( ( seq<rcv_nxt )  or  ( seq>rcv_nxt+rcv_wnd) )  then 

(*  out  of  window  *) 

begin 

build_ER; 

output  TCPM_0 . TCPM_MESreq( cur_mes ) ; 
end; 

else 

begin  (*  not-in-seq  handling  *) 

j  :  =  0  ; 

for  i  :=  1  to  re_order . last  do 

if  ( ( seq>re_order . buf [ i ] . seq)  and  ( j  =  0  )  )  then 
j  :=  i; 

for  i:=j  to  re_order . last  do 

re_order . buf ( i+1 ]  :=  recorder . buf [ i ] ; 
reorder,  buf  [  i  ].  seq  :=  seq; 

recorder. buf [ij .data  :=  message;  (*  queued  *) 
end; 

set_inact_timer ; 
end; 
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trans 

when  TCPM_I .TCPM_MESind 

provided  (cur_TCP_code(message)  =  AKCODE) 
from  ESTAB  to  SAME 

begin 

stop_inact_timer ; 
stop_retrans_timer ; 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

if  ( seq  >  snd_ack)  then  ( *  AK  in  sequence  *) 

begin 

snd_ack  :=  seq; 

while  ( ( re_trans . last>0 )  and  (*  check  re-seq  queue  *) 
( snd_ack>=re_trans . buf [ 1 ] . seq ) )  do 
begin 

for  i:=2  to  re_trans . last  do 

re_trans . buf [ i-1 ]  :=  re_trans . buf [ i ] ; 
re_trans . last  :=  re_trans . last  -1; 

end; 

(*  else,  automatic  drop  the  AK  *) 

if  ( re_trans . last>0 )  then 
set_retrans_timer ; 
set_inact_timer ; 
end; 


(***  State_transition  from  FIN_WAIT  ***) 


trans 

when  TCPM_I . TCPM_MESind 

provided  (( cur_TCP_code( message ) 
( cur_TCP_code ( message ) 
( cur_TCP_code ( message ) 
( cur_TCP_code ( message ) 
from  FIN  WAIT  to  SAME 


=  CRCODE )  or 
=  CCCODE )  or 
=  DTCODE )  or 
=  AKCODE) ) 


var 

reason:  reason_type; 
begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

build_ER; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
end ;  • 
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trans 

when  TCPM_I . TCPM_MESind 

provided  (( cur_TCP_code( message )  =  DRCODE )  or 
(cur_TCP_code( message)  =  DCCODE)  or 
( cur_TCP_code ( message )  =  ERCODE )  ) 
from  FIN_WAIT  to  TIME_WAIT 

begin 

set_ref_timer; 

end; 


(***  State_transition  from  TIME_WAIT  ***) 


trans 

when  TCPM_I . TCPM_MESind 

provided  (cur_TCP_code( message)  =  CCCODE) 
from  TIME_WAIT  to  SAME 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

bui ld_ER ; 

output  TCPM_O.TCPM_MESreq(cur_mes ) ; 
end ; 


trans 

whenTCPM_I .TCPM_MESind 

provided  (cur_TCP_code( message)  =  DRCODE) 
from  TIME_WAIT  to  SAME 

begin 

accept_TPDU  (message);  (*  take  in  the  TPDU  *) 

build_DC; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
end; 
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^  *  *  * 


GROUP-2: 


timer-related 


*  *  * 


trans 

from  SYN_SENTddn 

provided  ( timer ( retrans ) ) 

var 

retrans_ptr:  /'retrans_type ; 

begin  (*  only  CR  in  retrans  queue  *) 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 
if  ( retrans_ptr . count  <  RETRANS_MAX)  then 
begin 

output  TCPM_O.TCPM_MESreq(cur_mes) ;  (*  re- trans  CR  *) 
retrans_ptr . count  :=  retrans_ptr . count+ 1 ; 
retrans_ptr . timer  :=  RETRANS_TIME; 
set_retrans_timer ; 
next_state  :  =  SAME; 
end ;  - 

else  begin  (*  count  =  max  *) 

stop_window_timer ; 
stop_inact_timer ; 
build_DR; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
retrans_ptr .data  :=  cur_mes; 
retrans_ptr . count  :=  1; 
retrans_ptr . timer  :  =  RETRANS_TIME ; 
set_retrans_timer ; 
build_DRg; 

output  TCPI_0 . TCPI_MESreq( tp_mes ) ;  (*  send  TDlSind  *) 

next__state  :=  FIN_WAIT; 

end;- 

end; 
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trans 

provided  ( timer ( retrans ) ) 
from  SYN_RCVD 

var 

retrans_ptr:  retrans_type; 

begin 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 
if ( retrans_ptr. count  <  RETRANS_MAX )  then 
begin 

output  TCPM_O.TCPM_MESreq(cur_mes ) ;  (*  retrans  CC  *) 

retrans_ptr . count  :=  retrans_ptr .count+1 ; 
retrans_ptr . timer  :=  RETRANS_TIME ; 
set_retrans_timer ; 
next_state  : -  SAME; 
end; 

else  (*  count  =  max  *) 

begin 

stop_window_ timer ; 
stop_inact_timer ; 
build_DR; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 

retrans_ptr .data  :=  cur_mes;  (*  replace  CC  with  DR  *) 

retrans_ptr . count  :=  1; 

retrans_ptr. timer  :=  RETRANS_TIME ; 

set_retrans_timer ; 

build_DRg; 

output  TCPI_O.TCPI_MESreq( tp_mes ) ;  (*  send  TDISind  *) 

next_state  :=  FIN_WAIT; 

end; 

end; 


trans 

from  ESTAB 

provided  ( timer ( retrans ) ) 
var 

retrans_ptr:  retrans_type ; 


begin 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 
if  ( retrans_ptr. count  <  RETRANS_MAX)  then 
begin 

output  TCPM_0 . TCPM_MESreq ( retrans_ptr . data ) ; 
retrans_ptr . count  :=  retrans_ptr .count+1; 
retrans_ptr . timer  :=  RETRANS_TIME; 
set_retrans_timer ; 

check_queue;  (*  check  for  re-trans  *) 

next  state  :=  SAME; 
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count=MAX  *) 


end; 

else  begin  (* 

s  top_window_t imer ; 
stop_inact_timer ; 
re_trans .total  :=  1;  (*  remove  all  retrans  *) 

retrans_ptr  :=  re_trans . buf [ 1 ] ; 
build_DR; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
retrans_ptr . data  :=  cur_mes; 
retrans_ptr .count  1; 

retrans_ptr . timer  RETRANS_TIME ; 

set_retrans_timer ; 
build_DRg; 

output  TCPI_O.TCPI_MESreq(tp_mes) ;  (*  send  TDISind  *) 

next_state  :=  FIN_WAIT; 

end; 


trans 

provided  ( timer ( retrans ) ) 
from  FIN_WAIT 

var 

retrans_ptr:  retrans_type ; 

begin 

retrans_ptr  : =  re_trans . buf [ 1 ] ; 
if  ( retrans_ptr . count  <  RETRANS_MAX)  then 
begin 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
retrans_ptr . count  :=  retrans_ptr . count +1 ; 
re trans_ptr . timer  :=  RETRANS_TIME; 
set_retrans_timer ; 
next_state  :=  SAME; 
end; 

else  (*  count  =  MAX  *) 

begin 

set_ref_timer ; 
next_state  :=  TIME__WAIT; 
end; 

end; 
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trans 

provided  ( t imer ( window ) ) 

from  ESTAB  to  SAME  (*  need  to  update  window  info  *) 

var 

re trans _ptr:  retrans_type; 

begin 

rcv__wnd  :=  set_window;  {*  get  new  credit  *) 
bui ld_AK; 

append_fiow;  (*  append  flow-ctrl  parameters  *) 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 

re_trans . last  :=  re_trans . last  +  1; 

retrans_ptr  : =  re_trans . buf [ re_trans . last ] ; 

retrans_ptr . data  :=  cur_mes; 

retrans^ptr .count  :=  0; 

retrans_ptr. timer  :=  RETRANS^TIME; 

set_retrans_timer ; 

s  e  t _w i ndow_t ime r ; 

end; 


trans 

provided  ( timer ( data_ack) ) 

from  ESTAB  to  SAME  (*  timer  for  acknowledge  of 

receiving  data  *) 

begin 

rcv_ack  :=  rcv_nxt; 
build_AK; 

output  TCPM_0 . TCPM_MESreq( cur_mes ) ; 
end; 


trans 

provided  ( timer( inact_ack) ) 

from  ESTAB  to  SAME  (*  no  DT/’ED  sent  in  the  interval; 

sending  AK  to  keep  active  *) 


begin 

build_AK; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 

set_inact_ack_t imer ; 

end; 
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trans 

provided  ( timer ( inact) ) 
from  ESTAB  to  FIN_WAIT 

var 

retrans_ptr:  retrans_type; 

begin 

s  t o  p_w i ndo w_ t ime  r ; 
stop_retrans_t imer ; 
build_DR; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 

re_trans . total  :=  1;  (*  remove  all  retrans  *) 

retrans_ptr  : =  re_trans . buf [ 1 ] ; 

retrans_ptr . data  :=  cur_mes; 

retrans_ptr .count  :=  1; 

retrans_ptr .  timer  :=  RETRAJNS  TIME; 

set_retrans_timer ; 

build_DRg ; 

output  TCPI_O.TCPI_MESreq( tp_mes) ;  (*  send  TDISind  to  linker  *) 

end; 


trans 

provided  ( timer ( ref ) ) 

from  TIME_WAIT  to  CLOSED 

begin 

f lag__kill_me  :=  now 
end; 
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/  *** 


GROUP-3:  TPDU  from  TRANSPORT  GATEWAY  ***) 


trans 

when  TCPI_I.TCPI__MES.ind 

provided  (TP_code{ message)  =  CRCODE) 
from  CLOSED  to  SYN_SENTddn 

var 

retrans_ptr:  retrans_type ; 


begin 

accept_TP_mes  (message);  ( 

rcv_wnd  :=  set_window; 

trans_CRg; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
re_trans . total  :=  1; 
retrans_ptr  :=  re_trans . buf [ 1 ] ; 
retrans_ptr .data  :=  cur_mes; 
retrans_ptr .count  :=  1; 
retrans_ptr . timer  :=  RETRANS_TIME; 
se t_retrans_t imer ; 
end; 


trans 

when  TCPI_I .TCPI_MESind 

provided  ( TP_code( message)  =  DRCODE ) 
from  SYN_SENTddn 

var 

retrans_ptr:  retrans_type ; 


begin 

accept_TP_mes  (message);  ( 

s top_retrans_timer ; 
accept_TP_mes  (message);  (* 

trans_DRg; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
re_trans . total  : =  1 ; 
retrans_ptr  :=  re_trans .buf [ 1] ; 
retrans_ptr . data  : =  cur_mes ; 
retrans~ptr .count  :=  1; 
retrans'ptr. timer  :*  RETRANS_TIME ; 
set_retrans_timer; 
end; 


*  CR  from  gateway  * ) 


take  in  the  TP  mes  * 


*  take  in  the  TP_mes 
take  in  the  TP  mes  * 
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trans 

when  TCPI_I . TCPI_MESind 

provided  (TP_code( message)  =  CCCODE) 
from  SYN_SENTout  to  SYN_RCVDddn 

var 

retrans_ptr:  retrans_type; 


begin 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

rcv_wnd  :=  set_window; 

trans_CCg; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
re_trans . total  : =  1; 
retrans_ptr  :  =  re_trans . buf [ 1 ] ; 
retrans_ptr . data  cur_mes; 
retrans_ptr .count  :=  1; 
retrans_ptr . timer  :=  RETRANS_TIME; 
set_retrans_t imer ; 
end ; 


trans 

when  TCPI_I .TCPI_MESind 

provided  (TP_code( message)  =  DRCODE ) 
from  SYN_SENTout  to  CLOSED 

begin 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

trans_DRg; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 

flag_kill_me  :=  now; 

end; 


trans 

when  TCPI_I .TCPI_MESind 

provided  (TP_code( message)  =  DRCODE) 
from  SYN_RCVDddn  to  FIN_WAIT 

var 

retrans_ptr:  retrans_type; 


begin 

stop_retrans_timer ; 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

trans_DRg; 

output  TCPM_0 . TCPM_MESreq( cur^mes ) ; 
retrans_ptr  :=  re_trans .buf [ lj; 
retrans_ptr .data  :=  cur__mes; 
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ret rans_ptr .count  :=  retrans_ptr .count+1; 
retrans_ptr. timer  :=  RETRANS_TIME; 
set_ retrans_timer ; 
end; 


trans 

when  TCPI_I .TCPI_MESind 

provided  (TP_code( message)  =  DTCODE) 
from  SYN__RCVD  to  ESTAB 

begin 

st°p_inact_ack__timer ; 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

trans_DTg; 

output  TCPM_O.TCPM_MESreq(cur_mes ) ;  (*  send  DT  to  TCP  Net  *) 

rpl-.rans_pt.r  :=  re_t  rans  .  bn  f  [  1  ]  ; 

retrans_ptr . data  :=  cur_mes; 

retrans_ptr . count  :=  retrans_ptr .count+1; 

retrans_ptr . timer  :=  RETRANS_TIME ; 

set_retrans_timer ; 

set_window_timer; 

set_inact_timer ; 

set_inact_ack_timer ; 

end; 


trans 

when  TCPI_I . TCPI_MESind 

provided  (TP_code( message)  =  DRCODE) 
from  ESTAB  to  FIN_WAIT 

var 

retrans_ptr:  retrans_type ; 


begin 

stop_window_t imer ; 
stop_inact_timer ; 
stop_re transit imer; 

accept_TP_mes  (message);  (*  take  in  the  TP_mes  *) 

trans_DRg; 

output  TCPM_0 . TCPM_MESreq ( cur_mes ) ; 
retrans_ptr  :  =  re_trans .buf [ 1 ] ; 
retrans_ptr .data  cur_mes; 
retrans_ptr .count  :  =  retrans_ptr . count+1 ; 
retrans_ptr. timer  :*  RETRANS_TIME; 
set_retrans_t imer ; 
end; 
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trans 

when  TCPI_I .TCPI_MESind 

provided  (TP_code{ message)  =  DTCODE) 
from  ESTAB  to  SAME 

begin 

s  top__window_t  imer ; 

stop  inact  timer;  L  .  . 

accept_TP_mes  (message);  (*  take  m  the  TP_mes  ) 

trans_DTg; 

output  TCPM_O.TCPM_MESreq(cur_mes) ; 

retrans  ptr  s=  re_trans . buf [ re_trans . last ] ; 

retrans_ptr . data  :=  cur_mes; 

ratrans_ ptr . count  :=  retrans_ptr . count+1 ; 

retrans_ptr . timer  : =  RETRANS_TIME ; 

re_trans . last  :=  re_trans . last  +  1; 

set_retrans_t imer ; 

s  e  t  _w i ndo w_ t imer; 

set_inac  t_t ime  r ; 

end; 
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